procedure TForm1.Button1Click(Sender: TObject);
var testdialog:TsaveDialog;i:single;
begin
edit1.Text:=inttostr(random(123));
end;
var testdialog:TsaveDialog;i:single;
begin
edit1.Text:=inttostr(random(123));
end;
解决方案 »
- 关于差异取屏的问题
- 静静地等着starluck 散分!
- PostMessage的疑问?
- 关于消息处理的基础知识
- 菜鸟高分紧急求救------如何设置ComboBox右边下拉条的宽度?
- 怎样在spcomm 中判断串口是否已经打开?
- cannot perform this operation on a close dataset
- 高手:关于类的转换
- 可以在delphi程序中把sqlserver的数据库转换为foxpro或者paradox的数据库吗?不想用sqlserver的工具。
- AdoQuery在Post时出现错误:“无法为更新行集定位,一些值可能已在最后读取后改变”
- 一个关于avi文件上传到数据库中的问题?
- 怎样打印数据库中的blob的内容?
function Random [ ( Range: Integer) ]
Range是最大值也就是说
random的返回值是在0<=和<Range之间的一个整形数.如果range未指定则返回一个在0<=和<1之间的一个实形数.
delphi6我没有用过,你自己看看帮助吧.