论坛 › Delphi交流 › 三个数字排序

shzbg1341810374 发表于 2015-12-24 09:09:20

三个数字排序

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 发表于 2016-8-2 12:48:20

guolai 看看

LG0090 发表于 2021-6-18 15:12:42

6

查看完整版本: 三个数字排序