type
TStudent = record
Name:string[30];
Sex; Boolean;
end;
const
FileName = 'TEST';
var
Student: TStudent;
Count: Integer;
procedure SaveSomeInfo;
var
SaveFile: TFileStream;
begin
SaveFile := TFileStream.Create(FileName,fmOpenWrite or fmCreate);
SaveFile.Write(Student,SizeOf(TStudent));
SaveFile.Write(Count,SizeOf(Integer));
SaveFile.Free;
end;
delphi 支持三中文件类型。其中就有记录文件
implementation
{$R*.DFM}
type
AddressInfo=rocord
name:string[30];
address:string[20];
telephone:string[20];
end;
Procedure TForm1.FormCreat(Sender:TObject);
var NewAddress:AddressInfo;
AddressFile:file of AddressInfo;
begin