写文本文件(50分)

  • 主题发起人 主题发起人 hotsoup
  • 开始时间 开始时间
H

hotsoup

Unregistered / Unconfirmed
GUEST, unregistred user!
请问如何重复写入文本文件,而不产生覆盖.给段代码吧!
 
var FileText:TStrings;
begin
FileText:=TStringList.Create;
FileText.LoadFromFile('aaa.txt');
FileText.Add('asfasdfasdfasdfasdfasd');
fileText.Savetofile('aaa.txt');
FileText.Free;
end;
 
var
file1:textfile;

assginfile(file1,路径):
reset() 重写
append() 追加
 
var f: TextFile;

begin
assignfile(f,'d:/aaa.txt');
if FileExists('d:/aaa.txt') then
append(f)
else
rewrite(f);
writeln(f,'ddddd');
flush(f);
closefile(f);
end;
 
一般情况下是lcl_003的做法。
 
同意lcl_003.
 
就是fontain写出来的代码。
 
多人接受答案了。
 
后退
顶部