在delphi中往一个文本文件写东西时如何换行？ 回答着给分！！！！

Question

with TStringList.Create do try
  Add('第一行');
  Add('第二行');
  Add('第三行');
  SaveToFile('c:\temp.txt');
finally
  Free;
end;

Answer 1

var sFile: String;
    tFile: TextFile;  sFile := 'C:\ttt.txt';
  AssignFile(tFile,sFile);
  if FileExists(sFile) then
    Append(tFile)
  else
    ReWrite(tFile);
  WriteLn(tFile,'我的字符');
  WriteLn(tFile,'第二行');
  CloseFile(tFile);

Answer 2

var 
  f:textfile;
begin
AssignFile ( f , 'youtextname.TXT ' ) ;
Rewrite( f ) ;
Writeln(f,string1);
Writeln(f,string2);
...
closefile(f);