Строки, файлы... оптимизировать?

← →
Гыук (2004-08-04 14:56) [0]

Для того чтобы промотать файл в начало я использую reset(F2) - думаю это не самый оптимальный способ для промотки в начало... Не подскачите чем заменить? (Если Seek то тогда распишите подробнее как, я не понимаю как это делать с TextFile) И вообще, может заменить на работу в памяти, только стоит ли и как в таком случае.
assignfile(f1, edit1.Text); reset(f1); assignfile(f2, edit2.Text); reset(f2); button3.Enabled:=false; button4.Enabled:=false; while not EOF(f1) do begin readln(f1, buf1); s:=edit3.Text + buf1; reset(f2); //seek(f2, 1); while not eof(f2) do begin readln(f2, buf2); p:=pos(s, buf2); if p<>0 then begin memo1.Lines.Add(buf2); end; end; end;

← →
Андрей Сенченко © (2004-08-04 15:01) [1]

TStringList.LoadFromFile и работай уже с ним.

ИМХО

seek безусловно не получится - он работает только с типизированными файлами.

← →
П7 (2004-08-04 15:03) [2]

Откровенно говоря не разобрался в коде. Просто нет желания. Если даже в реальной программе рекомендуется писать более осмысленно - форматирование, имена переменных, комментарии, то уж для деманстрационного примера сам Святой Коннектий велел. Извини, за оффтопик. Напиши код более форматированно - будут тебе ответы и исходые коды.

Seek еще посмотри.

Строки, файлы... оптимизировать? Найти похожие ветки