Delphi读写二进制文件

2024年4月30日发(作者：)

c(Rec);

;

//Rec(Rec);

c;

end;

end;

var

Myrec:TMyrec;

Rec:TPersonRec;

Reccount:integer;

begin

Myrec := (Apppath+'',fmOpenRead or fmShareDenyWrite);

;

Reccount:=Recs;

for i:=1 to Reccount do

begin

c(Rec);

;

//Rec(Rec);

c;

end;

end;