基础问题,请高手指点!谢谢!

Question

如果在程序中有两个变量 X 同 Y , X 同 Y 的值每点按钮一次便各加上本身,在C盘下有一个记事本文件名为 text ,每点击一下程序上的按钮便在记事本中写进 x 同 Y 的相关数据X Y
XX YY现在我的问题是: 怎么才可以在记事本中写进信息,按键一次就写一行,按第二次是换行再写的.具体应该怎么做,谢谢!

Answer 1

用AssignFile,Append,Writeln就可以呀。打开文件，每次添加一行。

Answer 2

Writeln可以每次添加一行到文件，同意一楼的。

Answer 3

procedure TForm1.Button1Click(Sender: TObject);function GetStr: String;
begin
  Inc(X);
  Inc(Y);
  Result := ' X: ' + IntToStr(X) + ' Y: ' + IntToStr(Y);
end;const
  FileName = 'c:\ttt.txt';
var
  f: TextFile;
  X, Y: Integer;
begin
  AssignFile(f, FileName);
  if  not FileExists(FileName) then
    Rewrite(f)
  else
    Append(f);
  Writeln(f,GetStr);
  CloseFile(F);
end;假设X Y为整型，且为全局变量。