关于文件的操作

Question

我想写一个保存信息的代码，过程是这样的
有一些字符串str1,str2,str3........Strn
如果这些字符串当中有不满足给定条件的，我就把它保存到一个文本文件Record.txt中
格式是这样的
'-----------------'+DateTimeToStr(now)+'--------------'
str1
'-----------------'+DateTimeToStr(now)+'--------------'
str2
.
.
.
.
'-----------------'+DateTimeToStr(now)+'--------------'
strn
这样保存字符串的代码怎么写啊 ？请指导 谢谢了 
if (不满足条件)  then 
begin
   保存这个字符串；//这部分是我需要的代码
end;

Answer 1

var
  FHandle:THandle;
  FileName:string;
  str1,str2:string;
begin
  FileName:='d:\123.txt';
  FHandle:=FileOpen( FileName, fmOpenWrite or fmShareDenyNone );
  FileSeek( Fhandle, 0, 2 );
  str1:='-----------------'+DateTimeToStr(now)+'--------------'+#10#13;
  str2:='fdsafdsafdsa'+#10#13;
  FileWrite( Fhandle, str1[ 1 ], length( str1 ) );
  FileWrite( Fhandle, str2[ 1 ], length( str2 ) );
  FileClose( FHandle );
end;