Delphi快速从文件流读取数据存入本地txt

最新推荐文章于 2020-11-18 21:13:10 发布

绍兴老鼠

最新推荐文章于 2020-11-18 21:13:10 发布

阅读量979

点赞数

分类专栏： Delphi自学文章标签： delphi

本文链接：https://blog.csdn.net/lmw17009/article/details/103610910

版权

Delphi自学专栏收录该内容

3 篇文章 0 订阅

订阅专栏

Delphi快速从文件流读取数据存入本地

var：
fs:TFileStream;
Path:string;
Buf4:array[0…3] of byte;
Str:string;
begin
fs := TFileStream.Create(Path+’*.map’, fmOpenRead or fmShareExclusive);
with fs do
begin
position:=0;
read(Buf4,4);
Str:=inttostr(Buf4[0]);
end;
fs.free;
with TStringList.Create do try
Add(Str);
SaveToFile(‘c:\temp.txt’);
finally
Free;
end;
end;