编程论坛 → Delphi论坛

怎么实现单击一次button显示一个数字？

Button 发布于 2009-09-27 20:40， 1078 次点击

我随机生成一个数字怎么使用button控件单击一下显示一个数字？如第一次显示29 第二次紧接着 29，26 第三次紧接着29，26，23

1 回复

mohao1632009-09-28 08:42

程序代码：

procedure TForm1.Button1Click(Sender: TObject);
var
k: Integer;
begin

  Randomize;
  k :=  Random(100);

  edit1.Text := edit1.Text + IntToStr(k)+'  ';

end;