Получить строку и обработать в таймере

← →
linkz © (2004-02-28 21:52) [0]

Здравствуйте. Подскажите, плиз, как в делфи получить строку из файла, обработать в таймере в теч. определенного времени (т.е. задержка нужна), а затем получить следующую строку, снова в таймере обработать и так далее до конца файла.

← →
Defunct © (2004-02-28 22:01) [1]

В обработчике таймера, считывайте из открытого файла одну строку и обрабатывайте только ее. Когда строк больше нет, закройте файл.

← →
linkz © (2004-02-28 22:15) [2]

Пробовал с помощью
while not eof (file) do
Гоняет до конца файла и все.

Напишите, пожалуйста, кусок кода, как для начинающего

← →
Gero © (2004-02-28 22:15) [3]

> linkz © (28.02.04 21:52)

А зачем так извращаться?

> Напишите, пожалуйста, кусок кода, как для начинающего

TForm1 = class(TForm) Button1: TButton; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } F : TextFile; FAble : Boolean; end; ... // По таймеру считываем и обрабатываем строку procedure TForm1.Timer1Timer(Sender: TObject); Var S:String; begin If FAble Then If (not Eof(F)) Then Begin ReadLn(F,S); Caption := "current string : " + S; End Else Begin FAble := False; CloseFile(F); End; end; // По кнопке открываем файл procedure TForm1.Button1Click(Sender: TObject); begin {$I-} AssignFile(F,"Myfile.txt"); Reset(F); If IOResult = 0 Then FAble := True Else FAble := False; {$I+} end;

Спасибо. Сейчас попробую.
Удачи!

Получить строку и обработать в таймере Найти похожие ветки