unit1.pas

两数比较大小

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    lbl6: TLabel;
    edt1: TEdit;
    edt2: TEdit;
    edt3: TEdit;
    edt4: TEdit;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
 procedure exchang(a:Integer;b:Integer);
 var
   max:Integer;
   begin
   if a<b then
     begin
     max:=b;
     b:=a;
     a:=max;
     end;
     Form1.edt3.Text:=IntToStr(a);
     form1.edt4.Text:=IntToStr(b);

   end;
{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
  a:Integer;
  b:Integer;
begin
a:=StrToInt(edt1.Text);
b:=StrToInt(edt2.Text);
exchang(a,b);
end;

end.