|
马上注册,结交更多好友,享用更多功能^_^
您需要 登录 才可以下载或查看,没有账号?立即注册
x
- 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.
复制代码 |
|