delphi写多行文本文件操作

Posted 2023-03-23

var
f:TextFile;
begin
AssignFile(f,'D:\toocle\myres.rc');
rewrite(f);
Append(f);
Writeln(f,id1+' '+id2+' '+filepath);
CloseFile(f);
end;
这上面是我写的代码，但是每次执行都会把原来创建的文件替换掉，我想知道如何在创建的一个文本文件里写入多行的文本，而不是被替换掉。

rewrite(f);//覆盖写
append(f);//追加写
如果你不想清掉原有文件的内容不要使用rewrite就行了

var
f:TextFile;
FileName:string;
begin
FileName :='D:\myres.txt';
if not FileExists(FileName)then
begin
ShowMessage('文件：'+FileName+' 不存在!');
exit;
end;
AssignFile(f,FileName);
//rewrite(f);
Append(f);
Writeln(f,id1+' '+id2+' '+filepath);
CloseFile(f);
end; 参考技术A 加一个判断。如果存在此文件的话。就直接写入文件尾。
如果不存在则创建。