| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Гыук ©   (2004-08-04 14:56:00) 

Для того чтобы промотать файл в начало я использую 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;


---

Smithson   (2004-08-04 16:59:00) [1]

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

---

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

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

---

Андрей Сенченко   (2004-08-04 15:01:00) [3]

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

ИМХО

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

---

Наверх