В данном коде при обработке файла в 200 мегабайт выскакивает ошибка: out of memory. Как исправить Данную ошибку в этом коде ?
var
list:TStrings;
i:integer;
str:string;
begin
list :=TStringList.Create;
list.LoadFromFile(OpenDialog1.FileName);
for i :=list.count-1 downto 0 do
begin
str :=list.Strings[i];
while Pos(edit1.text, str) >0 do
begin
Delete(str, Pos(edit1.text, str), Length(edit1.text)) ;
list.Strings[i] :=str;
end;
end;
list.SaveToFile('out.txt');
list.free;
end;