您的位置:首页 > 编程语言 > Delphi

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

2020-02-17 07:50 567 查看

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;

  • 点赞
  • 收藏
  • 分享
  • 文章举报
绍兴老鼠 发布了3 篇原创文章 · 获赞 0 · 访问量 27 私信 关注
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: