delphi - 如何重复按钮的过程

Question

我已经为任务 1 和任务 2 开发了两个按钮的两个程序。你知道如何创建一个新按钮，它可以重复之前两个按钮的程序来执行任务 1 + 2 在指定的次数？

Answer 1

将任务提取到单独的方法中：

procedure TForm1.DoTask1;
begin
  ....
end;

procedure TForm1.DoTask2;
begin
  ....
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DoTask1;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  DoTask2;
end;

然后添加一个带有OnClick处理程序的新按钮，如下所示：

procedure TForm1.Button3Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 1 to N do
  begin
    DoTask1;
    DoTask2;
  end;
end;