标签:文件 end Delphi 合并 TFileStream TObject fs1 ms txt
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) btn1: TButton; btn2: TButton; btn3: TButton; mmo1: TMemo; mmo2: TMemo; procedure btn1Click(Sender: TObject); procedure btn2Click(Sender: TObject); procedure btn3Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} //合并 use TFileStream procedure TForm1.btn1Click(Sender: TObject); var fs1,fs2:TFileStream; begin fs1:= TFileStream.Create('a.txt',fmOpenWrite); //主 fs2:= TFileStream.Create('b.txt',fmOpenRead); //必须为fmOpenRead,如果为fmOpenWrite则报错 try fs1.Seek(0,soFromEnd);//将指针移到主文件的末尾 fs1.CopyFrom(fs2,0); finally fs1.Free; fs2.free; end; mmo1.Lines.LoadFromFile('a.txt'); mmo2.Lines.LoadFromFile('b.txt'); end; //合并 use TMemoryStream procedure TForm1.btn3Click(Sender: TObject); var fs1:TFileStream; ms: TMemoryStream; begin fs1:= TFileStream.Create('a.txt',fmOpenWrite); //主 ms:= TMemoryStream.Create; try ms.LoadFromFile('b.txt'); fs1.Seek(0,soFromEnd);//将指针移到主文件的末尾 fs1.CopyFrom(ms,0); finally fs1.Free; ms.free; end; mmo1.Lines.LoadFromFile('a.txt'); mmo2.Lines.LoadFromFile('b.txt'); end; //分割 procedure TForm1.btn2Click(Sender: TObject); var fs1,fs2:TFileStream; isize:integer; ms:TMemoryStream; begin fs1:= TFileStream.Create('a.txt',fmOpenRead); //主 fs2:= TFileStream.Create('b.txt',fmOpenRead); //必须为fmOpenRead,如果为fmOpenWrite则报错 ms:= TMemoryStream.Create; try isize:= fs2.Size; //isize:=18;//18为 文件字节数 fs1.Seek(-18,soFromEnd);// ms.CopyFrom(fs1,18); ms.SaveToFile('c.txt'); finally fs1.Free; ms.free; end; end; procedure TForm1.FormCreate(Sender: TObject); begin mmo1.Lines.LoadFromFile('a.txt'); mmo2.Lines.LoadFromFile('b.txt'); end; end.
标签:文件,end,Delphi,合并,TFileStream,TObject,fs1,ms,txt 来源: https://www.cnblogs.com/tobetterlife/p/12169758.html
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。