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
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
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;
Dzięki.
że tez na to niewpadłem. Takie balanlne :)