每次单击按钮时显示一个值

Question

我想知道如何在每次单击按钮时在 TEdit 中显示一个值。

例如：

iNumber := 1;

如果我点击按钮 4 次，编辑必须显示 '1111'。

Answer 1

您可以轻松地将您的数字转换为字符串并将其添加到 TEdit 的先前文本中：

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text + IntToStr(iNumber);
end;

Displaying a value every time a button is clicked