请问我怎么样才能自动定时把memo1的内容保存到文件？

Question

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 1000;
end;procedure TForm1.Timer1Timer(Sender: TObject);
{$J+}
const
  I: Integer = 0;
{$J-}
begin
  if I > 1 * 60 then begin //一分中一次
    Memo1.Lines.SaveToFile('C:\Temp\Temp.txt');
    I := 0;
  end else Inc(I);
end;

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
  if FileExists('C:\Temp\Temp.txt') then //文件存在
    Memo1.Lines.LoadFromFile('C:\Temp\Temp.txt');  Memo1.Lines.Add('用户:' + Edit1.Text);
  Memo1.Lines.Add('时间:' + DateTimeToStr(Now));  Memo1.Lines.SaveToFile('C:\Temp\Temp.txt');
end;

Answer 2

to：　zswang(伴水)(伤心中）
procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 60000;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Memo1.Lines.SaveToFile('C:\Temp\Temp.txt');
end;

Answer 3

利用TIMER 控件，对文件的操作应使用添加方式打开，定时向文件中添加，
否则日志就没有意义了，对吗？

Answer 4

to：　zswang(伴水)(伤心中）
procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 60000;  //直接为一分钟
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Memo1.Lines.SaveToFile('C:\Temp\Temp.txt');
end;有何不妥吗？

Answer 5

to thygw(注册表错误):
  i c
  60分呢？60 0000 //我担心会超出范围！

Answer 6

to zswang(伴水)(伤心中)　Timer1.Interval 取值范围为：0－4294967295如果Timer1.Interval 的值很大（但还是在范围内），是否会影响精确度？！

Answer 7

const
  J: Integer = 0; //声明类型常量{$J+}
const
  I: Integer = 0; //声明成静态变量
{$J-}

Answer 8

to thygw(注册表错误):
  谢谢，我修改procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 60000;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if FileExists('C:\Temp\Temp.txt') then //文件存在
    Memo1.Lines.LoadFromFile('C:\Temp\Temp.txt');
  Memo1.Lines.Add('用户:' + Edit1.Text);
  Memo1.Lines.Add('时间:' + DateTimeToStr(Now));
  Memo1.Lines.SaveToFile('C:\Temp\Temp.txt');
end;

Answer 9

TO zswang(伴水)(伤心中)　如果Timer1.Interval 的值很大（但还是在范围内），是否会影响精确度？！是根据系统时钟来发送消息的吗？

Answer 10

嗯，最好是接收消息，而有要用Timer

Answer 11

不好意思，刚刚字打错了，是最好不要用timer,而应该接收消息