如何对一组数据随机的排序 你可以用这组数据的下标的随机确定,再来取此下标的数据即可。设你的一组数据为data[1...n],则data[random(n+1)]就是随机取出的一个数据。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 //Randomize;for I := Low(A) to High(A) do begin J := Random(High(A) - Low(A)) + Low(A); T := A[I]; A[I] := A[J] A[J] := T;end; 你是一条狗?!有意思~~郁闷~~~~~~~~~~//绝对开玩笑~非人身功击使用Random函数不行吗?! 关于黑红LED大屏幕的问题 如何用一表中的值代替另一表中的值 [请教MessageDlg控件使用]如何设定默认的button? @@@@@好书值得看 《Delphi精要》 一个比较有难度的问题,是关于DBGrid的。 不用复杂的SQL语句、麻烦的临时表,有简单的办法实现如下分类汇总表吗? 那些函数能返回当前的时,分,秒 ? delphi的treeview节点为何显示不出汉字 请教luhongjun(过江项羽): CreateProcess问题: 一个菜鸟的小问题! 怎样创建透明窗体??? 马上给分,那里有讲解delphi创建dll的比较好的资料
for I := Low(A) to High(A) do begin
J := Random(High(A) - Low(A)) + Low(A);
T := A[I];
A[I] := A[J]
A[J] := T;
end;
你是一条狗?!有意思~~
郁闷~~~~~~~~~~//绝对开玩笑~非人身功击使用Random函数不行吗?!