結構體文件的讀寫(.dat)

最新推荐文章于 2022-04-07 21:45:04 发布

ysgs129

最新推荐文章于 2022-04-07 21:45:04 发布

阅读量223

点赞数

分类专栏： delphi语言文章标签： delphi

本文链接：https://blog.youkuaiyun.com/ysgs129/article/details/105730565

版权

delphi语言专栏收录该内容

24 篇文章

订阅专栏

本文介绍三种使用Delphi读取和写入.dat文件的方法，包括直接操作记录体、利用FileStream以及MemoryStream进行文件读取。这些方法适用于批量处理大量数据，如股票市场数据或经纪记录。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

讀寫方式一：
KChratList := TLRDL2StyleList.Create(‘E:\Voice-king\ADSLRDLC_CE2\090602.dat’);//重點
k:=0;
for i:= KChratList.Count-1 downTo 0 do
begin
inc(k);
if k >2000 then Break;
TheItem := KChratList[i];//重點
with TheItem do
begin
MessageStr := Format(’%10s %20s %8d %8d %8d %8f’,
[StockID,StockName,MoneyStockRatio,MoneyRatio,NetRatio,StockTer]);
end;
end;
讀寫方式二：
redFile := TFileStream.Create(Filesnames,fmOpenRead);//redFile為FileStream
if redFile.Size > 0 then
begin
numbercount := redFile.Size div sizeof(TBrokerRec);//TBrokerRec為記錄體
SetLength(readcmpyone,numbercount);//readcmpyone為記錄體TBrokerRec的集合
for i:= 0 to numbercount-1 do
begin
redFile.Read(readcmpyone[i],sizeof(TBrokerRec));
end;
end;
讀寫方式三：
TheFile := TMemoryStream.Create;
try
TheFile.LoadFromFile(DatFileName);//DatFileName是源文件(.dat)所在路徑
if TheFile.Size = 0 then Exit;
TheCount := TheFile.Size div Sizeof(TBrokerRec);//TBrokerRec為記錄體
SetLength(TheTBrokerRecArray, 0);//TheTBrokerRecArray為記錄體TBrokerRec的集合
SetLength(TheTBrokerRecArray, TheCount + 1);
Move(TheFile.Memory^, TheTBrokerRecArray[0], TheCount * Sizeof(TBrokerRec));
finally
TheFile.Free;
end;