missice's Blog

有BUG，測試時不要輸入相同的數。
Label1是最大值，要放在最右邊，Label3是最小值，要放在最左邊！

語法：
procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c,d:integer;
begin
  a:=strtoint(edit1.text);
  b:=strtoint(edit2.text);
  c:=strtoint(edit3.text);
  if(a>c)and(c>b)then
  begin
  d:=b;
  b:=c;
  c:=d;
  end;
  if(b>a)and(a>c)then
  begin
  d:=a;
  a:=b;
  b:=d;
  end;
  if(b>c)and(c>a)then
  begin
  d:=a;
  a:=b;
  b:=c;
  c:=d;
  end;
  if(c>a)and(a>b)then
  begin
  d:=a;
  a:=c;
  c:=b;
  b:=d;
  end;
  if(c>b)and(b>a)then
  begin
  d:=a;
  a:=c;
  c:=d;
  end;
label1.Caption:=inttostr(a);
label2.Caption:=inttostr(b);
label3.Caption:=inttostr(c);
end;