procedure wczytaj;
var
i:integer;
TablicaK : array of String;
begin
assignfile(ZapiszK,'klub.dat');
{$I-}
reset(ZapiszK);
{$I+}
setlength(TablicaK,filesize(ZapiszK));
i:=0;
while not eof(ZapiszK) do
begin
read(ZapiszK,k);
TablicaK[i] := k.nazwa;
i:=i+1;
end;
closefile(ZapiszK);
end;
To wyzej jest oki ale nie radze sobie z tym :
TablicaK : array of array of String;
powstaje Tablica[i][j] teraz jak pod i podstawic k.nazwa a pod j k.imie...
Nieznalazlem nigdzie podobnego przykladu wiec pisze na forum :)
W razie pytan jestem na gg:2718965