Форум: "Основная";
Текущий архив: 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.014 c