Чтение построчно out of memory / Delphi XE4

[Taras2018]

В данном коде при обработке файла в 100 мегабайт выскакивает ошибка: 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;

[min@y™]

Что делает этот код - понятно.
А какова его цель?
------------
100500 тыщщщ перераспределений памяти в одном цикле. Я своим падаванам за такой код могу пальцы сломать. И они это знают.

[Пепел Феникса]

тут в общем-то нет построчного чтения..

[min@y™]

Сообщение от Пепел Феникса

тут в общем-то нет построчного чтения..

Мало того. Для файлов таких объёмов TStringList применять очень накладно. На порядок быстрее будет работать через какойнить потомок TStream. Писать поиск массива байт в стриме даже не нужно: всё уже давно написано и валяется в интернетах.

[northener]

Сообщение от Taras2018

В данном коде при обработке файла в 100 мегабайт

А вот не верю.
Out of memory в данном коде может возникнуть только из-за дефрагментации памяти при выполнении строки

str :=list.Strings[i];

Но как я не прикидывал возможные размеры строк и их количество в текстовом файле размером 100 МБ, у меня ничего не получилось.

[Alex11223]

Дык может у него 2 ГБ памяти, из которых почти все заняли винда и браузер.

[northener]

Сообщение от Alex11223

Дык может у него 2 ГБ памяти, из которых почти все заняли винда и браузер.

Вообще-то у нас у всех либо чуть менее 4ГБ памяти, либо (боюсь даже сказать сколько!).
Alex11223, вы об чем собственно?

[evg_m]

list.LoadFromFile(...);
list.text:=StringReplace(list.Text, '', Edit1.Text, [rfreplaceall]);
list.SaveToFile(...);

[Аватар]

list.text

это короче в исходнике, но памяти еще больше потребуется

[Alex11223]

Сообщение от northener

Вообще-то у нас у всех либо чуть менее 4ГБ памяти

У кого у всех? У меня 32.

Сообщение от northener

вы об чем собственно?

Про

Сообщение от northener

не верю.
Out of memory в данном коде может возникнуть только из-за дефрагментации памяти при выполнении строки

Почему он не может возникнуть при загрузке содержимого файла если у автора нет свободных 100+ МБ? (а может и 200+ если оно конвертирует в юникод из ansi)