Считывание строк

[Дэн]

Вот такое дело…

Простой цикл чтения строки из текстового файла.

 begin
memo2.Clear;
fName := Edit1.Text; AssignFile(f, fName);
Reset(f); 
if IOResult <> 0 then begin
MessageDlg(‘ошибка доступа к файлу ‘ + fName,
mtError,[mbOk],0); exit; end;
while not EOF(f) do begin
readln(f, buf); 
Memo2.Lines.Add(buf); 
end;
CloseFile(f); 
end;

как заставить цикл читать сначала первую строку потом вторую потом третью и так далее? Как перейти на следующую строку? Вот так я я написал выше он все записи файла копирует а мне именно по строкам копировать нужно. В текстовый файл будут постоянно записываться новые строки поэтому мне не нужно копировать первые строки которые уже были скопированы раньше. Как мне скопировать строку в файле какую захочу? как сообщить это проге?

 

[gemaglabin]

var
FTextStringList;
Temp:String;
FInt:integer;
begin
FText := TStringList.Create;
For FInt := 0 To FText.Count -1 do begin
FTemp := FText.Strings[FInt];
end;

Читает каждую строку...чтобы получить нужную строку делай так FTemp:=Ftext.Strings[ЧИСЛО]

 

[Дэн]

как соеденить твой код и мой? , я не знаю как файл открывать для чтения строк в этом примере. Нужно чтобы при срабатываниии всего цикла, читалась только первая строка, когда цикл пойдёт второй раз то должна читаться вторая строка (циклом управляет таймер) и т д.

 

[gemaglabin]

var
FTextstringList;
Temp:String;
INT:Integer;

Обработчик таймера

OnTimer
IF FText.Count<=INT then begin
FString:=FText.Strings[INT];
ShowMessage(FString);
inc(_inc);
end else begin
Showmessage('Файл кончился');
Timer1.Enabled:=false;

Процедура загрузки в FText файла
begin
FText := TStringList.Create;
FText.LoadFromFile('file.txt');
Timer1.Enabled:=true;
end;

 

[Дэн]

gemaglabin, спасибо, получилось