用TFileStream类
var
DataBuf:TMyRecord;myFileStream := TFileStream.Create('MyFileName',fmOpenReadWrite);
try
在这里读写
例如
MyFileStream.Read(DataBuf,SizeOf(DataBuf));
看看帮助
finally
myFileStream.Free;
end;
var
DataBuf:TMyRecord;myFileStream := TFileStream.Create('MyFileName',fmOpenReadWrite);
try
在这里读写
例如
MyFileStream.Read(DataBuf,SizeOf(DataBuf));
看看帮助
finally
myFileStream.Free;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货