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

问题描述 投票:0回答:2

我想每次单击按钮时如何在TEdit中显示值。例如:

iNumber := 1;

如果我单击按钮四次,则编辑必须显示'1111'

谢谢。

delphi delphi-2010
2个回答
0
投票
  1. 创建一个新的VCL应用程序。
  2. 在表格上放置TEdit。使用对象检查器,删除其默认的Text
  3. 在表格上放置TButton。使用对象检查器,将其Caption设置为Add 1
  4. 双击按钮,并添加以下代码:

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

0
投票

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := Edit1.Text + IntToStr(iNumber);
end;
© www.soinside.com 2019 - 2024. All rights reserved.