[Taras2020]

В данном коде при обработке файла в 100 мегабайт выскакивает ошибка: out of memory. Как переделать этот код что бы не было ошибки - недостаточно памяти ?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

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;