我想每次单击按钮时如何在TEdit
中显示值。例如:
iNumber := 1;
如果我单击按钮四次,则编辑必须显示'1111'
。
谢谢。
TEdit
。使用对象检查器,删除其默认的Text
。TButton
。使用对象检查器,将其Caption
设置为Add 1
。双击按钮,并添加以下代码:
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := Edit1.Text + '1';
end;
您可以轻松地将数字转换为字符串并将其添加到TEdit的以前的文本中:
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text := Edit1.Text + IntToStr(iNumber);
end;