Как прочитать первую и вторую строку текстового файла(*txt)?

← →
Aleksandr (2005-02-23 19:47) [0]

Подскажите как прочитать первую и вторую строку текстового файла(*txt)? Readln? Если да то как указать строку, через массив?

← →
begin...end © (2005-02-23 19:51) [1]

> Aleksandr (23.02.05 19:47)

Текстовые файлы являются файлами последовательного доступа. Это означает, что для того, чтобы прочитать вторую строку, надо сначала прочитать первую. Строки читаются с помощью процедуры ReadLn. Перед чтением файловая переменная должна быть связана с маршрутом доступа (AssignFile) и файл должен быть открыт для чтения (Reset). После чтения файл должен быть закрыт (CloseFile).

← →
Aleksandr (2005-02-23 19:52) [2]

Спасибо...

← →
Anatoly Podgoretsky © (2005-02-23 19:53) [3]

ReadLn первая
ReadLn вторая

← →
PZ (2005-02-23 19:58) [4]

procedure TForm1.Button1Click(Sender: TObject);
var
F : TextFile;
S1 : string;
S2 : Array[1..2] of String;
begin
if OpenDialog1.Execute then
begin
AssignFile(F, OpenDialog1.FileName);
Reset(F);
Readln(F, S1);
S2[1] := S1;
Readln(F, S1);
S2[2] := S1;
CloseFile(F);
end;
ShowMessage(S2[1]+#10#13+S2[2]);
end;

TStringList тоже очень удобен

Как прочитать первую и вторую строку текстового файла(*txt)? Найти похожие ветки