Ĺadny brzuch
Witam mam taki kod biblioteki:
Type TUser = Packed Record Nick:String[20]; ID:String[32]; End; TUserFile = File Of TUser; TUserTable = Array Of TUser; {*} Function AddToIDBase(Nick,ID:String):Boolean; Var User:TUser; F:TUserFile; Begin User.Nick:=Nick; User.ID:=ID; AssignFile(F,FileName); Reset(F); Seek(F,FileSize(F)); Write(F,User); CloseFile(F); Result:=True; End; Function LoadIDBase:TUserTable; Var User:TUser; F:TUserFile; i:Integer; Begin AssignFile(F,FileName); Reset(F); For i:=0 To FileSize(F) Do {error} Begin //********************************** SetLength(TUserTable,i); Read(F,User); Result[i]:=User; //********************************** End; CloseFile(F); End;
Jak wczytać rekordy z pliku i przypisać je bezpośrednio do tablicy ? Proszę o jakieś pomysły.
Kod na podstawie artykułu z 4p
przecież masz to w tym kodzie ...
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Type TUser = Packed Record Nick:String[20]; ID:String[32]; End; TUserFile = File Of TUser; TUserTable = Array Of TUser; {*} Function AddToIDBase(Nick,ID:String):Boolean; Var User:TUser; F:TUserFile; Begin User.Nick:=Nick; User.ID:=ID; AssignFile(F,FileName); Reset(F); Seek(F,FileSize(F)); Write(F,User); CloseFile(F); Result:=True; End; Function LoadIDBase:TUserTable; Var User:TUser; F:TUserFile; i:Integer; Begin AssignFile(F,FileName); Reset(F); For i:=0 To FileSize(F) Do {error} Begin //********************************** SetLength(TUserTable,i); Read(F,User); Result[i]:=User; //********************************** End; CloseFile(F); End;
Jak wczytać rekordy z pliku i przypisać je bezpośrednio do tablicy ? Proszę o jakieś pomysły.
Kod na podstawie artykułu z 4p
przecież masz to w tym kodzie ...