out of memory

[brownb]

memo1.Lines.LoadFromFile('D:\700\'+edit1.Text+'.html');
if Length(Memo1.Text)>0 then begin
memo1.Text:=copy(memo1.Text,pos('<input type="text"value="',memo1.Text)+39,length(memo1.Text)); //ia?acaai neaaa
memo1.Text:=copy(memo1.Text,1,pos('" class="refill_value"',memo1.Text)-1);
memo2.lines.add(memo1.Text);
memo1.Clear;
Edit1.Text := IntToStr(StrToInt(Edit1.Text) + StrToInt(Edit2.Text));
sleep(500);
button1.Click;
end
else
showmessage('1');

Есть 40к старниц надо вытащить строки но программа зависает и пишет out of memory.В чем может быть проблема?

[Serge_Bliznykov]

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

button1.Click;

дайте угадаю. этот код у Вас висит на кнопке Button1 ? (т.е. на событии button1OnClick) ?!
Т.е. Вы рекурсивно вызываете код сам из себя и потом удивляетесь, что стека не хватает (память заканчивается)?!

я уже молчу о том, что Вы используете Memo1.Text в качестве строки для обработки. Это вообще жуть кошмарная. Вы даже не представляете, какие процедуры/методы с выделением какой кучи памяти при этом задействуются. Выделите переменную строковую для этих целей и в ней уже резвитесь.

[brownb]

А можете помочь?кодом?)

[Shouldercannon]

1. Получи количество файлов с *.html
2. В цикле от 0 до Количество файлов - 1 или 1 до Количество файлов загружай содержимое файлов в TStringList. Со строками в TStringList работается так же как и в TMemo.
3. Найдённое добавляй в TMemo
Можешь демку набросать с приложенными HTML-файлами и написать что нужно вытащить или вообще что нужно.

[Serge_Bliznykov]

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

Можешь демку набросать с приложенными HTML-файлами и написать что нужно вытащить или вообще что нужно.

присоединяюсь. выложите сюда на форум архив с вашими html файлами,
расскажите, что нужно получить в результате, тогда можно будет и кодом помочь.

а пока непонятно ЧТО нужно получить и из ЧЕГО, трудно написать что-то вразумительное.

p.s.

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

Получи количество файлов с *.html

судя по коду, ему, не все файлы нужны, а какие-то определённые, с заданными именем