小编Bry*_*yan的帖子

procedure TForm1.Timer1Timer(Sender: TObject);
var
   i : integer;
begin
  if i > StrToInt(Edit1.Text) then
    Timer1.Enabled := False
  else
    i :=+ 1;
  SendClick(645,302);
  Sleep(2200);
  SendClick(694,619);
  Sleep(2200);
  SendClick(967,638);
  Sleep(2200);
  SendKeys('{BKSP}{BKSP}{BKSP}{BKSP}1',False);
  SendClick(917,688);
  Sleep(2200);
  SendClick(917,688);
  Sleep(2200);
  SendClick(917,688);
  amount := StrToInt(Label3.Caption) + 1;
  Label3.Caption := IntToStr(amount);
end;

由于某种原因,它只重复一次并停止......任何人都可以发现问题吗？我很累,香港专业教育学院经历了几次,我似乎无法看到一个......