怎样动态建立一个文本文件(50分)

我想动态的建立一个文本文件，符合某个条件时，将一段文字写入文本文件
怎么实现？最好有一小段程序！谢谢

procedure TForm1.Create_Log;
var
f:TextFile;
s:String;
begin
AssignFile(f,ExtractFilePath(Application.ExeName)+'/Log/'+FormatDateTime('yyyymmdd',Now)+'.log');
if not DirectoryExists(ExtractFilePath(Application.ExeName)+'/Log') then
CreateDir(ExtractFilePath(Application.ExeName)+'/Log')
else if not FileExists(ExtractFilePath(Application.ExeName)+'/Log/'+FormatDateTime('yyyymmdd',Now)+'.log') then
ReWrite(F)
else if Form3<>nil then
begin
s:='['+Form3.Edit1.Text+']: '+FormatDateTime('yyyy-mm-dd hh:mm:ss',now);
Append(F);
Writeln(F,s);
s:=DataModule1.ADODataSet1.CommandText;
Writeln(F,'--'+s);
Closefile(F);
end;
end;

用TStringList
对文本的操作都很方便，并且会很快

前数据量不能太大

Delphi的帮助中有个小例子，你用assignfile或read、write关键字来搜索一下。

存在memo里，memo.lines.savetofile(与TStringList是一样的)

F: TextFile;
str: string;
AssignFile(F,'Error.txt');
Rewrite(F);
if (条件) then
begin
str := 'aaaaa';
Writeln(F,str);
end;

多人接受答案了。