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

 找回密码
 立即注册

QQ登录

只需一步,快速开始

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

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

[复制链接] |主动推送

1686

主题

1721

帖子

2378

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
2378
发表于 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;  
复制代码



您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

 
在线客服
点击这里给我发消息 点击这里给我发消息 点击这里给我发消息
售前咨询热线
312337667

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

QQ|手机版|依星源码资源网 ( 鲁ICP备2021043233号-3 )|网站地图

GMT+8, 2024-2-23 04:10

Powered by Net188.com X3.4

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

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