请高手帮忙!

Question

每次为什么只能写入一行文字呢 ?writeln（）不是换行吗?
procedure TForm1.Button2Click(Sender: TObject);
var
 tt:TSystemTime;
 filename,path,y,m,d:string;
 filehandle,i:integer;
 tf:TEXTFILE;
begin
getSystemTime(tt);
with tt do
 begin
  y:=inttostr(wYear);
  m:=inttostr(wMonth);
  d:=inttostr(wDay);
 end;
path:=ExtractFilePath(paramstr(0))+y+m+d+'.txt';
if FileExists(path) then
 begin
  AssignFile(tf,path);
  rewrite(tf);
  writeln(tf,edit2.text);
  closefile(tf);
 end
 else begin
 filehandle:=filecreate(path);
 fileclose(filehandle);
 AssignFile(tf,path);
 rewrite(tf);
 writeln(tf,edit2.text);
 closefile(tf);
 end;end;

Answer 1

因为你只执行了一次writeln(tf,edit2.text);