Jak odczytac wszystkie wartosci pliku rekordowego w pascalu. Chcialbym takze, aby ponumerowal mi liczbe pozycji w pliku. Tzn jesli byloby 10 wpisow, zebym dostal zmienna o wartosci 10 zwrocona przez program. Jak wprowadzic taka zaleznosc.
0
0
var
i:integer;
nazwa:string[30];
assign(plik,nazwa);
reset(plik);
i:=0;
while not eof(plik) do
begin
read(plik,a]);
wyswietl(a);
i:=i+1
end;
close(plik);
*w zmiennej i masz liczbe rekordów w plik
*a to rekord
Pozdrawiam {hello}
0
Wielkie dzieki!!