怎么写文件

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


[解决办法]
procedure Tfmain.Button9Click(Sender: TObject);
var
thefile:textfile;
m:integer;
filename:string;
begin
filename:= 'c:\date.txt ';
assignfile(thefile,filename);
ReWrite(thefile);
end;
[解决办法]
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;