帮帮我好吗？

Question

碰到一个循环问题，我事先给定i:=1,j:=10,我想在i<j时让i:=i+1;并且把每次i+1的值在memo中显示，但有个条件，就是加一个timer控件，让每次i+1的结果每隔10妙中再显示在memo中。试了好多次，只能是i一直加到等于j时一块显示在memo中，然后隔10妙钟i再一直加到等于j,再显示在memo中。却不能实现i加一次1显示在memo中之后，隔10妙再加一次1再显示在memo中。实在没办法了，请各位高手帮我啊，谢谢了！最好给我写代码，谢谢！！！

Answer 1

这个还不简单 你不会把i:=i+1;放在TTimer控件的OnTimer事件中吗

Answer 2

???procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if i<j then i:=i+1;
end;

Answer 3

//设i,j为全局变量,Timer1.Interval:=10000;
var
  i:Integer=1;
  j:Integer=10;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if i<j then
  begin
    i:=i+1;
    Memo1.Lines.Add(IntToStr(i));
  end
  else
    Timer1.Enabled:=False;
end;