how to save string to a text file ?/help thanks !

Question

var F: TextFile;
   str:String;begin
  str := 'fdsgfdsgfd'
  AssignFile(F, 'your.txt');
  Rewrite(F);
  Writeln(F, str);
  CloseFile(F);
end;

Answer 1

var
  MyFile:TextFile;  
  aFileName: String;  //文件名
  LogText: String;  //要写入的字符串
begin
  aFileName := 'MyFile.Txt';  //文件名
  LogText := 'Helllo World!';//要写入的字符串
   try
      //完成写日志的操作
      Assignfile(MyFile,aFileName);
      if FileExists(aFileName) then  append(MyFile)
      else rewrite(Myfile);
      writeln(MyFile, LogText);      Flush(MyFile);
      closefile(MyFile);
    except
      //写文件操作中有异常(如目录是只读的等)
    end;
End