5,386
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
pdbird 2002-10-27
- 打赏
- 举报
同意楼上，但也还有别的方法。在此不多讲
iranjn 2002-10-27
- 打赏
- 举报
to blazingfire(烈焰)怎么和你联系，有问题当面请教！
to pdbird(老巢) 有什么别的方法说说看吗！小弟愿洗耳恭听！
to pdbird(老巢) 有什么别的方法说说看吗！小弟愿洗耳恭听！
blazingfire 2002-10-26
- 打赏
- 举报
把1.txt加到2.txt中：
procedure TForm1.btn1To2Click(Sender: TObject);
var
TxtList1,TxtList2:TStringList;
begin
TxtList1:=TStringList.Create;
TxtList2:=TStringList.Create;
try
TxtList1.LoadFromFile('D:\1.txt');
TxtList2.LoadFromFile('D:\2.txt');
TxtList2.AddStrings(TxtList1);
//把TxtList1内容加到TxtList2中
TxtList2.SaveToFile('D:\2.txt');
finally
TxtList1.Free;
TxtList2.Free;
end;
end;
建议：在文本文件不是很大的时候（一般的文本文件也不可能很大，文本文件一般比较小），用TStringList类来作，这样操作十分方便。
procedure TForm1.btn1To2Click(Sender: TObject);
var
TxtList1,TxtList2:TStringList;
begin
TxtList1:=TStringList.Create;
TxtList2:=TStringList.Create;
try
TxtList1.LoadFromFile('D:\1.txt');
TxtList2.LoadFromFile('D:\2.txt');
TxtList2.AddStrings(TxtList1);
//把TxtList1内容加到TxtList2中
TxtList2.SaveToFile('D:\2.txt');
finally
TxtList1.Free;
TxtList2.Free;
end;
end;
建议：在文本文件不是很大的时候（一般的文本文件也不可能很大，文本文件一般比较小），用TStringList类来作，这样操作十分方便。
bengbeng24 2002-10-26
- 打赏
- 举报
up
stanely 2002-10-22
- 打赏
- 举报
h:=fileopen(yourtxt,fmopenreadwrite);
if h>=0 then
begin
fileseek(h,0,2);
filewrite(h,buff,len);
fileclose(h);
end;
if h>=0 then
begin
fileseek(h,0,2);
filewrite(h,buff,len);
fileclose(h);
end;
lxlsky 2002-10-22
- 打赏
- 举报
同时打开两个，读其中一个的每一行，并写入另一个的尾部！直到结束！
