procedure TForm1.Button1Click(Sender: TObject);
var
MyNode: TMyNode;
i: Integer;
begin
//问题在这里
Randomize;{这个过程来自System单元我看了帮助(英文不太好不知道理解的是否问题有)说是用在一个随机值,可1没参数2没返回值实在不明白它到底做了什么}
for i := 1 to 5 do
begin
CurrentNodeClass := TMyNode;
MyNode := TreeView1.Items.AddChild (nil,
'item' + IntToStr (i)) as TMyNode;
MyNode.ExtraCode := i;
AddChildNodes(MyNode, Random (5));
end;
end;
var
MyNode: TMyNode;
i: Integer;
begin
//问题在这里
Randomize;{这个过程来自System单元我看了帮助(英文不太好不知道理解的是否问题有)说是用在一个随机值,可1没参数2没返回值实在不明白它到底做了什么}
for i := 1 to 5 do
begin
CurrentNodeClass := TMyNode;
MyNode := TreeView1.Items.AddChild (nil,
'item' + IntToStr (i)) as TMyNode;
MyNode.ExtraCode := i;
AddChildNodes(MyNode, Random (5));
end;
end;
解决方案 »
- delphi基础问题:关于“This form of method call only allowed for class methods”
- 急! 用ADO连接Excel时, 提示“被别的用户以独占方式打开,或没有查看数据的权限”
- 使用DBGrid向数据库中添加数据空行问题怎么解决?
- 使用query1.delete时,系统提示read only!
- 利用API获得硬盘序列号,需要支持IDE和SCSI硬盘的
- 请各位高人给个思路
- 怎样能使edit中数字的小数点后只有2位
- 关于报表中计算的问题。
- 关于代理操作FTP的问题
- 怎样建立一个单元文件?
- 又一年,生活还是没意思!!
- 共享软件中常用的生成与本机对应的唯一机器辨识号的作为注册依据的方法是怎样实现的?
AddChildNodes(MyNode, Random (5));
Random(5)配合使用?
中得某个数
Random(5) 取 5 到 1 中得某个数
MOV RandSeed,EAX然后通过上面的代码把值传给RandSeed,也就是所谓的随机种子!To initialize the random number generator, add a single call Randomize or assign a value to the RandSeed variable before making any calls to Random.这是Random的帮助,可见Random就是根据随机种子RandSeed获得随数!由此可知Randomize只要在获得随机数前执行就可以了!