u_px.pas

来自「用Delphi实现的 排序程序 能进行三个数的比较」· PAS 代码 · 共 107 行

unit U_px;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var
   a,b,c,t:real;
begin
   a:=strtofloat(edit1.Text);
   b:=strtofloat(edit2.Text);
   c:=strtofloat(edit3.Text);
   if not(a>b) then
     begin
        t:=a;
        a:=b;
        b:=t;
     end;
   if not(a>c) then
     begin
        t:=a;
        a:=c;
        c:=t;
     end;
     if not(b>c) then
     begin
        t:=b;
        b:=c;
        c:=t;
     end;
   edit4.Text:=floattostr(a);
   edit5.Text:=floattostr(b);
   edit6.Text:=floattostr(c);
   edit4.Refresh;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
 edit1.Text:=' ';
 edit2.Text:=' ';
 edit3.Text:=' ';
 edit4.Text:=' ';
 edit5.Text:=' ';
 edit6.Text:=' ';
 edit1.SetFocus;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;
end.