Скачать: CL | DM;

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

← →
Гыук   (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]

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

---

← →
Smithson ©   (2004-08-04 16:59) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.041 c