5,379
社区成员
发帖
与我相关
我的任务
分享
TMyRecord=record
ID:LongWord;
SendDateTime:TDatetime;
...
end;
var
FDataFile: file of TMyRecord;
begin
AssignFile(FDataFile,'文件路径');
if not FileExists('文件路径') then
Rewrite(FDataFile);
Reset(FDataFile);
Seek(FDataFile,fileSize(FDataFile));
try
Write(FDataFile,History);
finally
CloseFile(FDataFile);
end;
end;