怎樣用random函數產生不重復的數據?
解决方案 »
- 我的窗体的width,height属性只能改小不能改大了?
- 各位斑主,各位高手,MySQL的问题?急
- 怎样在TScrollBox中绘图?
- 关于TMediaPlayer控件播放多首歌曲的问题!!
- 为什么我不能在Data breakpoint输入变量的名字?
- 关于从TEdit创建一个的组件,怎么写能让组件拖到窗口中时Text为空?并在创建时也为空再次提问。
- ==== 大家一起来验证一下这个“国际一级.com\.net\.org”免费域名注册的真假 ====
- 高手帮我看看这段程序的问题??
- ADO: 如何利用ADO 实现BDE中 TUPDATESQL 的功能
- 怎么让复选框起到作用? 下面是我自己写的,我想让我自己定义的 fengzhu 在我点了复选框后起到执行的作用·。在线等急!!
- 求一排序题,谢谢啦!
- 帮忙看看 下面代码是什么意思啊!!!!
var
Inx: Integer;
RandInx: Integer;
SwapItem: PByteArray;
A: TByteArray absolute aArray;
begin
if (aItemCount > 1) then
begin
GetMem(SwapItem, aItemSize);
try
for Inx := 0 to (aItemCount - 2) do
begin
RandInx := Random(aItemCount - Inx);
Move(A[Inx * aItemSize], SwapItem^, aItemSize);
Move(A[RandInx * aItemSize], A[Inx * aItemSize], aItemSize);
Move(SwapItem^, A[RandInx * aItemSize], aItemSize);
end;
finally
FreeMem(SwapItem, aItemSize);
end;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
a: array[1..100] of Integer;
i: Shortint;
begin
Randomize;
for i := Low(a) to High(a) do a[i] := i;
Shuffle(a, High(a), SizeOf(Integer));
for i := 1 to High(a) - 1 do
ListBox1.Items.Add(IntToStr(a[i]));
end;