如题,谢谢
解决方案 »
- 谁能提供fastreport的电子使用文档及下载地址谢谢
- 急急!!!!!关于FastReport中字体旋转的问题,请各位大侠帮忙!
- 新起點, 新開始,女孩子願意做程序的可以過來看看.^_^
- 大家好!我想提取字段的内容唯一值,应该怎样实现呢!谢谢
- 现在用什么语言开发桌面程序最好,就是可以做出漂亮的窗口。是delphi吗?
- 关于添加的简单问题请进
- 如何得到listview的选中的列的第一栏的值?
- 很简单的TREEVIEW到DBGIRD的拖拉问题
- delphi初学者用什么好书,能介绍好书给我吗????
- ado,OBDC和BDE
- 一个abstract;和reintroduce 的问题
- 请问在commandtext里面可以执行存储过程吗?
Random(范围); //产生随机数
随机函数取走一个作为b[1]
剩下再作为一个整体,又随机取走一个作为 b[2]...
........b[99]..b[100]
while count<100 do begin
i:=randmom(100);
if to[i]=' ' then begin
to[i]:=from[position];
postion:=position+1;
count:=count+1;
end;
end;
3. b[1]=a[i]; a[i]=a[100]
4. 生成 0..99 随机数 i
5. b[2]=a[i]; a[i]=a[99]
6. 生成 0..98 随机数 i
7. b[3]=a[i]; a[i]=a[98]
....
....
for x:=1 to 100 do
b[x]:=a[random(100)+1]
不知是否可以..
办法不错!
function RandomFrom(const AValues: array of string): string; overload;