|
|
|
1 产生 1 - 200 随机数 R 2 判断 R 是否在列表中, 如果在: 重复 1 否则 3 3 将 R 访入列表 …… |
xjr888 |
2004/3/4 16:16:03 |
|
正确! 就是取随机数,取30次! |
soft5257 |
2004/3/4 16:57:48 |
|
我试着取30个不重复的随机数并把它们保存到一个temp表中,表中只有一个字段No, 但是运行后总是有重复的数字,请大侠帮我 …… |
gzy |
2004/3/4 17:37:19 |
|
我又试了用数组来保存随机数,这次没有重复的了,但是每当第一次运行时总是出来相同的数字,random函数是不是有问题啊?代码如 …… |
gzy |
2004/3/4 18:09:36 |
|
Randomize; |
inrm |
2004/3/4 22:26:37 |
|
对了,就用randomize |
gzy |
2004/3/5 14:16:57 |
|
先将StringGrid.defaultdrawing:=False; 在StringGrid的OnDrawCell事件中 …… |
pgjeffrey |
2004/3/5 14:16:02 |
|
procedure TForm1.FormCreate(Sender: TObject); begin Form1. …… |
inrm |
2004/3/4 20:01:38 |
|
赞成 |
easykey |
2004/3/4 20:30:21 |
|
运行不了了。是不是 KeyPreview 还需要在那里定义呢 |
suhuan |
2004/3/5 13:48:45 |
|
DELPHI中那么多表格控件,为什么还要用VB的。 DELPHI对OCX的支持本来就不好,没办法 从你的错误提示来看,是 …… |
xvjie2002 |
2004/3/5 13:04:52 |
|
InstallShield Express Borland Limited Edition Ver3.5 有没有中文的帮助 …… |
xiangshu |
2004/3/5 13:01:15 |
|
用 extractfilepath(application.exename) 取得你程序的运行目录 接下来.....
|
waterstone |
2004/3/5 12:35:22 |
|
谢谢你问题得以解决! |
root_lh |
2004/3/5 12:55:22 |
|
先确定您的path_str是不是='E:\midas\skins\mxp1.skn'先; 再2000下'E:\midas\ …… |
aerly |
2004/3/5 12:10:05 |
|
问一下 showmessage(path_str+'==='+'E:\midas\skins\mxp1.skn'); 的 …… |
xjr888 |
2004/3/5 12:23:17 |
|
我也很想知道,请问楼主,这个读卡器市场上有单独卖么? |
ganbing |
2004/3/5 11:47:05 |
|
读卡器很容易. 本公司就可以设计制作! |
shanghl2002 |
2004/3/5 11:57:06 |
|
application.messagebox('信息','提示',64); |
rhyme |
2004/3/5 9:47:21 |
|
建议用 Messagebox(handle, PChar('信息'), PChar('标题'), mb_OK + mb_I …… |
tfluo |
2004/3/5 11:23:48 |
|
想知道原因吗?很简单
跟我联系.QQ:308797867 Email:z9925hm@tom.com |
hrbcw |
2004/3/5 11:15:22 |
|