Odczyt z pliku pokolei linia po lini

0

Witam.

Jak odczytac z pliku dane i przypisać je do zmiennych, tzn :
A := pierwsz alinia
B := druga linia
itd

AssignFile(TF, Plik);
Reset(TF);
try
while not Eof(TF) do
begin
Readln(TF, S);
......
end;
finally
CloseFile(TF);
end;

THX

0

A :=string;
B :=sttring;
itd

AssignFile(TF, 'c:\plik.txt'); //lokalizacja pliku
Reset(TF); /otwarcie pliku
try
while not Eof(TF) do
begin
Readln(TF, a); //kopiuje 1 linjke z pliku do a i przechodzi do następnej linijki textu z pliku (tam gdzie jest b)
Readln(TF, b); //kopiuje 2 linijke z pliku do b
end;
finally
CloseFile(TF);
end;

0

Dzięki.

że tez na to niewpadłem. Takie balanlne :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1