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;
解决方案 »
- 今个月我要闭关了
- delphi中,使用XML的优势?
- expected end but invalid character 什么问题阿?
- 删除文件夹问题?
- 菜鸟问题:如何让TADOConnection不弹出数据库登录对话框,通过什么方法在程序中设定 userid和password
- 使用delphi三个按钮如何实现与ie中文件菜单中的页面设置、打印设置同样的效果?
- 在dbgrid中,用程序怎么将最后一条记录的值和(第一条记录到倒数第二条记录)做个判断?
- 在打印时如何控制一整页只打打印一条一记录???
- radiogroup问题。
- 关于mscomm串行通信的用法
- 一个关于avi文件上传到数据库中的问题?
- 怎样打印数据库中的blob的内容?
function Random [ ( Range: Integer) ]
Range是最大值也就是说
random的返回值是在0<=和<Range之间的一个整形数.如果range未指定则返回一个在0<=和<1之间的一个实形数.
delphi6我没有用过,你自己看看帮助吧.