procedure TForm1.Button1Click(Sender: TObject);
var
D: Double;
begin
Randomize;
D := Random(35) + 1;
Caption := FloatToStr(D);
end;
var
D: Double;
begin
Randomize;
D := Random(35) + 1;
Caption := FloatToStr(D);
end;
解决方案 »
- 新手提问,关于线程同步的问题,急救各位高人指点
- 应用程序在运行的过程中突然SQL-SERVER中断了,怎么捕捉?要不然就显示"连接失败",然后程序就无法退出.
- 怎样将生成在程序文件夹下面的dbf文件保存到另一个文件夹下?
- 一个有关焦点的问题.问题很简单,可我不会解决....
- 处理方向健和回车键的消息有哪些?
- 高分请教chartfx控件的使用!!!!!!
- ■怎样得到系统键盘输入的内容?■
- 数据类型的问题,请来解答!
- 请问怎样给一个可执行文件改图标
- Delphi6比Delphi5增加了什么功能?减去了什么功能?Delphi5的控件、程序在Delphi6能否正常运行?
- 一个简单的问题
- 怎样用简易的方法将动态数组转化为静态数组
var
D: Double;
begin
Randomize;
D := Random(35) + 1;
Caption := FloatToStr(D);
end;
begin
Randomize;
for I := 1 to 35 do
random(i);
end;
---------------------
Random(35);
double=float;
Random(35);
double=float;