Question

delphi 循环随机数 判断大小 让随机数排列

我想做一个 随机数(100-0) 让它循环 的值 反回到listbox2.items.add(string(i)) 就是让 前面的循环值 在 listbox2 控件里 以重小到大排列. 帮帮忙新手 对高手 这种应该是小KS 我前面的代码 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

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;