Question

DELPHI代码选出1-35之间不重复的数，并以逗号隔开。点击确认按钮则在文本框中显示！跪求代码

Answer 1

TForm1.Button1Click(Sender: TObject); var i,s:integer; begin
var
num:array[1..35] of integer;
temp,x:integer;
begin
randomize;
for i:=1 to 35 do
num[i]:=i;
//不重复对顺序数字洗牌
for i:=1 to 35 do
begin
x:=random(35)+1;
temp:=Num[i];
Num[i]:=Num[x];
Num[x]:=temp;
end;
//返回带,的字符串,我是把所有的数字按洗牌后的顺序发回来用 逗号阁开
for i:=1 to 35 do
edit1.text:=edit1.text+inttostr(Num[i])+',';
end;

///好了等你给分了!!!!由于你没说选出多少个数,所以我把35个数字全返回了
//由于你没给打算显示在哪个控件上，所以你放一个 TEdit 吧,名字为 edit1 就可以了

Answer 2

2楼精彩，50分学此算法，值！