依星源码资源网,依星资源网

 找回密码
 立即注册

QQ登录

只需一步,快速开始

限时开通VIP永久会员,可免费下载所有附件
查看: 454|回复: 0

delphi 文件的读取(二进制文件和文本文件)

[复制链接] 主动推送

9845

主题

9897

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
10806
发表于 2023-8-30 11:48:36 | 显示全部楼层 |阅读模式
delphi 文件的读取(二进制文件和文本文件)

  1. procedure TForm_main.Button5Click(Sender: TObject);  
  2. var  
  3.   myStream:TFileStream;  
  4.   myFileSize:Integer;  
  5.   myTextFile:TextFile;  
  6.   text,data,fileStr:string;  
  7.   fileData:TStringList;  
  8.   memory:TMemoryStream;  
  9.   stringStream: TStringStream;  
  10.   buffer:PChar;  
  11.   resource:TResourceStream;  
  12.   jj:TCustomMemoryStream;  
  13.   MyWrite:TWriter;  
  14.   MyReader:TReader;  
  15. begin  
  16.   //解析文件  普通读取  
  17.   //myStream:=TFileStream.Create('');  
  18.   AssignFile(myTextFile,Edit1.Text);  
  19.   Reset(myTextFile);  
  20.   while not Eof(myTextFile) do  
  21.   begin  
  22.     readln(myTextFile,text);  
  23.     data:=data+text;  
  24.     //ShowMessage(text);  
  25.   end;  
  26.   CloseFile(myTextFile);  
  27.   //ShowMessage(data);  
  28.   //TStringList 读取文件  
  29.   fileData:=TStringList.Create;  
  30.   fileData.LoadFromFile(Edit1.Text);  
  31.   //ShowMessage('行数:'+inttostr(fileData.Count));  
  32.   //Application.MessageBox(PWideChar(fileData.Text),'系统提示',0);  
  33.   fileData.Free;  
  34.   //TFileStream二进制读取  
  35.   myStream:=TFileStream.Create(Edit1.Text,fmShareDenyRead);  
  36.   myStream.Position:=0;  
  37.   //myStream.Seek(0);  
  38.   GetMem(buffer,myStream.Size);  
  39.   //SetLength(buffer,myStream.Size);  
  40.   myStream.Read(buffer^,myStream.Size);  
  41.   ShowMessage(buffer);  
  42.   fileStr:=Pchar(@buffer[0]);  
  43.   ShowMessage(fileStr);  
  44.    // TReader对应TWriter  
  45.   //MyReader:=TReader.Create(myStream,myStream.Size);  
  46. // filestr:=  MyReader.ReadString;  
  47. // ShowMessage(fileStr);  
  48.   FreeAndNil(myStream);  
  49.   //  
  50.   memory:=TMemoryStream.Create;  
  51.   memory.LoadFromFile(Edit1.Text);  
  52.   //memory.SaveToFile('test.txt');  
  53.   memory.ReadBuffer(buffer^,memory.Size);  
  54.   ShowMessage(memory.ToString);  
  55.   ShowMessage(buffer);  
  56.   
  57.   //TStringStream读取文件  
  58.   stringStream:=TStringStream.Create;  
  59.   stringStream.LoadFromFile(Edit1.Text);  
  60.   ShowMessage(stringStream.DataString);  
  61.   stringStream.Free;  
  62.   
  63. end;  
复制代码



扫码关注微信公众号,及时获取最新资源信息!下载附件优惠VIP会员5折;永久VIP免费
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

免责声明:
1、本站提供的所有资源仅供参考学习使用,版权归原著所有,禁止下载本站资源参与商业和非法行为,请在24小时之内自行删除!
2、本站所有内容均由互联网收集整理、网友上传,并且以计算机技术研究交流为目的,仅供大家参考、学习,请勿任何商业目的与商业用途。
3、若您需要商业运营或用于其他商业活动,请您购买正版授权并合法使用。
4、论坛的所有内容都不保证其准确性,完整性,有效性,由于源码具有复制性,一经售出,概不退换。阅读本站内容因误导等因素而造成的损失本站不承担连带责任。
5、用户使用本网站必须遵守适用的法律法规,对于用户违法使用本站非法运营而引起的一切责任,由用户自行承担
6、本站所有资源来自互联网转载,版权归原著所有,用户访问和使用本站的条件是必须接受本站“免责声明”,如果不遵守,请勿访问或使用本网站
7、本站使用者因为违反本声明的规定而触犯中华人民共和国法律的,一切后果自己负责,本站不承担任何责任。
8、凡以任何方式登陆本网站或直接、间接使用本网站资料者,视为自愿接受本网站声明的约束。
9、本站以《2013 中华人民共和国计算机软件保护条例》第二章 “软件著作权” 第十七条为原则:为了学习和研究软件内含的设计思想和原理,通过安装、显示、传输或者存储软件等方式使用软件的,可以不经软件著作权人许可,不向其支付报酬。若有学员需要商用本站资源,请务必联系版权方购买正版授权!
10、本网站如无意中侵犯了某个企业或个人的知识产权,请来信【站长信箱312337667@qq.com】告之,本站将立即删除。
郑重声明:
本站所有资源仅供用户本地电脑学习源代码的内含设计思想和原理,禁止任何其他用途!
本站所有资源、教程来自互联网转载,仅供学习交流,不得商业运营资源,不确保资源完整性,图片和资源仅供参考,不提供任何技术服务。
本站资源仅供本地编辑研究学习参考,禁止未经资源商正版授权参与任何商业行为,违法行为!如需商业请购买各资源商正版授权
本站仅收集资源,提供用户自学研究使用,本站不存在私自接受协助用户架设游戏或资源,非法运营资源行为。
 
在线客服
点击这里给我发消息 点击这里给我发消息 点击这里给我发消息
售前咨询热线
312337667

微信扫一扫,私享最新原创实用干货

QQ|免责声明|小黑屋|依星资源网 ( 鲁ICP备2021043233号-3 )|网站地图

GMT+8, 2024-10-12 07:12

Powered by Net188.com X3.4

邮箱:312337667@qq.com 客服QQ:312337667(工作时间:9:00~21:00)

快速回复 返回顶部 返回列表