简单问题、简单问题、简单问题、简单问题。

Question

如何让几个数按值大小排序？例如:a:=1;
b:=2;
c:=3;如和让它们按数值大小显示在Edit1中？

Answer 1

那是因为你问的时间不对，都10点了哪还有人来泡论坛，都睡觉准备上班了
如果说你只用比较3个数，那可以用下面的方法
var a,b,c,d : Integer;
begin
   a:=1;
   b:=2;
   c:=3;
   d:=max(a,b);
   d:=max(c,d);
   edit1.Text:=inttostr(d);
end;

Answer 2

var a,b,c,d : Integer;
begin
   a:=1;
   b:=2;
   c:=3;
   d:=max(a,b);
   d:=max(c,d);
   edit1.Text:=inttostr(d);
end;

Answer 3

大概有50个数左右需要从大到小排序，用max太麻烦了，还有其他办法吗？

Answer 4

随机产生99个数,然后排序,在EDIT中显示:procedure TForm1.Button1Click(Sender: TObject);
var
  StringList: TStringList;
  Idx: Integer;
begin
  StringList := TStringList.Create;
  try
  Randomize;
  for Idx := 1 to 99 do
    StringList.Add(Format('%.2d',[Random(50)]));
  StringList.Sort;
  StringList.Delimiter := ' ';
  Edit1.Text := StringList.DelimitedText;
  finally
    StringList.Free;
  end;
end;