Форум: "Основная";
Текущий архив: 2004.03.14;
Скачать: [xml.tar.bz2];
ВнизПолучить строку и обработать в таймере Найти похожие ветки
← →
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)
А зачем так извращаться?
← →
Defunct (2004-02-28 22:25) [4]> Напишите, пожалуйста, кусок кода, как для начинающего
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;
← →
linkz (2004-02-28 22:27) [5]Спасибо. Сейчас попробую.
Удачи!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.03.14;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.012 c