三个数字排序

shzbg1341810374

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.edt1Click(Sender: TObject);
begin
    edt1.Text := '';
end;

procedure TForm1.edt2Click(Sender: TObject);
begin
    edt2.Text := '';
end;

procedure TForm1.edt3Click(Sender: TObject);
begin
    edt3.Text := '';
end;

procedure TForm1.btn1Click(Sender: TObject);
var str1,str2,str3,temp : Integer ;

begin
  str1:= StrToInt(edt1.Text);
str2:= StrToInt(edt2.Text);
str3:= StrToInt(edt3.Text);
      if str1 < str2 then
        begin
          temp := str1 ;
          str1 := str2 ;
          str2 := temp ;
        end;




      if str1 < str3 then
        begin
            temp := str1 ;
            str1 := str3 ;
            str3 := temp;
        end;



      if str2 < str3 then
          begin
            temp := str2 ;
            str2 := str3 ;
            str3 := temp ;
          end;





      edt1.Text := IntToStr(str3);
      edt2.Text := IntToStr(str2);
      edt3.Text := IntToStr(str1);
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
    Close ;
end;

end.

dps521

guolai 看看

LG0090

6