Question

delphi 循环随机数 判断大小

我想做一个 随机数(100-0) 让它循环 的值 反回到listbox2.items.add(string(i)) 就是让 前面的循环值 在 listbox2 控件里 以重小到大排列. 我前面的代码 var
Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
i,ii:integer;begin
listbox1.Clear ;
for i := 0 to 100 do
begin
randomize;
ii:=random(100-0);
listbox1.Items.add(inttostr(ii)) ;
end;
end;procedure TForm1.Button2Click(Sender: TObject);
beginend;end.

Answer 1

排序参考代码，listbox1里存放原数排列 listbox2是重新排序后的排列 procedure TForm1.Button6Click(Sender: TObject);
var
i,j,m,n:Integer;
s:string;
begin
i:=self.ListBox1.Items.Count;
if i=0 then
Exit;
while self.ListBox1.Items.Count>0 do
begin
i:=self.ListBox1.Items.Count;
if i=1 then
begin
s:=self.ListBox1.Items.Strings[0];
self.ListBox2.Items.Add(s);
self.ListBox1.Items.Clear;
Exit;
end;
m:=101;
for j:=0 to i-1 do
begin
s:=self.ListBox1.Items.Strings[j];
n:=StrToInt(s);
if n<m then
m:=n;
end;
self.ListBox2.Items.Add(IntToStr(m));
i:=self.ListBox1.Items.IndexOf(IntToStr(m));
self.ListBox1.Items.Delete(i);
end;
end;

Answer 2

{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
i,ii:integer;
a:array of integer; //动态数组变量
temp:integer;
begin
listbox1.Clear ;
listbox2.Clear ;
SetLength( a ,100 ) ; for i := 0 to 99 do
begin
randomize;
ii:=random(100-0);
a[i]:=ii;
listbox1.Items.Add(inttostr(ii));
end;
for I:=low(a) to high(a) do
begin
for ii:=i to high(a) do
begin
if a[i]>a[ii] then
begin
temp:=a[i];
a[i]:=a[ii];
a[ii]:=temp;
end;
end;
end; for I:=low(a) to high(a) do
begin
listbox2.Items.Add(inttostr(a[i])) ;
end;
end;end.

Answer 3

你先用stringlist保存所有产生的随机数，然后，调用 StringList的Sort方法，最后遍历输出StringList的值就可以了