delphi遗留问题

来源：百度知道 编辑：UC知道 时间：2024/05/15 17:59:31
请帮忙看下如下代码
type
Ta = array [1..6] of Integer;

procedure CreateData_(var aaa : Ta);
var
bbb:array[1..33] of integer;
i,j,n,k,s,v,t: integer;
begin
for t:=1 to 33 do
for v:=0 to Form1.CheckListBox1.Items.Count-1 do
begin
if Form1.CheckListbox1.Checked[v] then
bbb[t]:=strtoint(Form1.CheckListbox1.Items[v]);
//end;
end;//begin
randomize;
//先用随机数初始化数组;
for i:=1 to 6 do
begin
repeat
n:=0;
aaa[i]:=1+random(33);
for t:=1 to 33 do
begin
if aaa[i]=bbb[t]
then n:=n+1;
end;
until n=0;
end;
//下面是关键的部分，消去相同的数;
for i:=1 to 5 do
begin
for j:=i+1 to 6 do
begin
if aaa[i]=aaa[j] then
be

//在窗口上增加一个Memo组件

type
Ta = array [1..6] of Integer;

procedure CreateData_(var aaa : Ta);
var
bbb:array[1..33] of integer;
i,j,n,k,s,v,Num: integer;
begin

Num:=1; //记录bbb中元素个数

for v:=0 to Form1.CheckListBox1.Items.Count-1 do
begin
if Form1.CheckListbox1.Checked[v] then
begin
bbb[Num]:=StrToInt(Form1.CheckListbox1.Items[v]);
Num:=Num+1;
end;
end;

Num:=Num-1;

randomize;
//先用随机数初始化数组;
for i:=1 to 6 do
begin
repeat
n:=0;
aaa[i]:=1+random(33);
for s:=1 to Num do
begin
if aaa[i]=bbb[s] then n:=n+1;
end;
until n=0;
end;

//下面是关键的部分，消去相同的数;
for i:=1 to 5 do
begin
for j:=i+1 to