如何写文件

Question

我想在当前目录下以文本的形式记录程序运行的状况
如何打开当前目录下的一个文件,如log.txt
如果文件不存在就创建这个文件.
然后把需要记录的内容追加在已有的文件之后.
请问该怎么做?

Answer 1

procedure Tfmain.Button9Click(Sender: TObject);
var
thefile:textfile;
m:integer;
filename:string;
begin
filename:='c:\date.txt';
assignfile(thefile,filename);
ReWrite(thefile);
end;

Answer 2

var
     f: TextFile;begin
    AssignFile(f,'c:\123.txt');
    ReWrite(f);
    Writeln(f,'testtest');
    CloseFile(f);
end;
我使用上面的语句,第一次调用可以写入一行,但接下去调用会覆盖原先的内容
请问有什么办法能追加在原先文件内容的后面

Answer 3

procedure Tfmain.Button9Click(Sender: TObject);
var
  thefile:textfile;
  filename:string;
  AHnd: Integer;
begin
  filename := 'c:\date.txt';  if Not FileExists(filename) then
  begin
    AHnd := FileCreate(filename);
    FileClose(AHnd);
  end;  assignfile(thefile, filename);
  try
    Append(thefile);
    Writeln(thefile, filename);
  finally
    CloseFile(thefile);
  end;
end;