使用TStringList

Question

我尝试使用streamreader填充字符串列表。 但是在填充它时我有一个OutOfMemoryError。 我在网上搜索，但找到任何解决方案。 我也尝试增加我的字符​​串列表的容量，但它没有任何改变。 谢谢你的帮助。

这是我的代码：

list := TStringList.create;
//list.Capacity := 100000000; Doesn't work
Reader := TStreamReader.Create(filename, true);
try
  list.BeginUpdate;
  try
    list.Clear;
    while not Reader.EndOfStream do
    list.Add(Reader.ReadLine); // OutOfMemoryError
  finally
    list.EndUpdate;
  end;
finally
  Reader.Free;
end;

我忘了我的xml文件大小是250个月。