Delphi运算符的运用

1.利用Delphi运算符制作个计数器

 

 

 

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    Edit1: TEdit;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    SpeedButton14: TSpeedButton;
    SpeedButton15: TSpeedButton;
    SpeedButton16: TSpeedButton;
    SpeedButton17: TSpeedButton;
    SpeedButton18: TSpeedButton;
    SpeedButton19: TSpeedButton;
    SpeedButton20: TSpeedButton;
    SpeedButton21: TSpeedButton;
    SpeedButton22: TSpeedButton;
    SpeedButton23: TSpeedButton;
    SpeedButton24: TSpeedButton;
    Panel1: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    SpeedButton25: TSpeedButton;
    SpeedButton26: TSpeedButton;
    SpeedButton27: TSpeedButton;
    SpeedButton28: TSpeedButton;
    SpeedButton29: TSpeedButton;
    SpeedButton30: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton16Click(Sender: TObject);
    procedure SpeedButton15Click(Sender: TObject);
    procedure SpeedButton14Click(Sender: TObject);
    procedure SpeedButton30Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton18Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure SpeedButton19Click(Sender: TObject);
    procedure SpeedButton20Click(Sender: TObject);
    procedure SpeedButton21Click(Sender: TObject);
    procedure SpeedButton22Click(Sender: TObject);
    procedure SpeedButton23Click(Sender: TObject);
    procedure SpeedButton24Click(Sender: TObject);

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

var
  Form1: TForm1;
  temp1: string;
  temp2: string;
  int1 : Double;
  int2 : Double;
  flags: Integer;

implementation

{$R *.dfm}

function myIntToHex(value:string):Byte;
begin
  Result := StrToInt('$'+value);
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
  Edit1.Text := FloatToStr(myIntToHex(Edit1.Text));
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
  temp1 := IntToHex(strToInt(Edit1.Text),4);
  Edit1.Text := temp1;
end;

procedure TForm1.SpeedButton10Click(Sender: TObject);
begin
   Edit1.Text:=Edit1.Text+'0';
end;

procedure TForm1.SpeedButton11Click(Sender: TObject);
begin
   Edit1.Text:=Edit1.Text+'.';
end;

procedure TForm1.SpeedButton12Click(Sender: TObject);
begin
   temp1 := Edit1.Text;
   Edit1.Clear;
   flags  := 0;
end;

procedure TForm1.SpeedButton13Click(Sender: TObject);
begin
   temp1 := Edit1.Text;
   Edit1.Clear;
   flags  := 1;
end;

procedure TForm1.SpeedButton14Click(Sender: TObject);
begin
  temp2 := Trim(Edit1.Text);
  int1 := StrToFloat(temp1);
  int2 := StrToFloat(temp2);
  case flags of
    0: Edit1.Text := FloatToStr(int1+int2);
    1: Edit1.Text := FloatToStr(int1-int2);
    2: Edit1.Text := FloatToStr(int1*int2);
    3: Edit1.Text := FloatToStr(int1/int2);
  end;
end;

procedure TForm1.SpeedButton15Click(Sender: TObject);
begin
   temp1 := Trim(Edit1.Text);
   Edit1.Clear;
   flags  := 2;
end;

procedure TForm1.SpeedButton16Click(Sender: TObject);
begin
   temp1 := Edit1.Text;
   Edit1.Clear;
   flags  := 3;
end;

procedure TForm1.SpeedButton18Click(Sender: TObject);
begin
   Edit1.Text:='-'+Edit1.Text;
end;

procedure TForm1.SpeedButton19Click(Sender: TObject);
begin
   Edit1.Text:=Edit1.Text+'A';
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
   Edit1.Text:=Edit1.Text+'1';
end;

procedure TForm1.SpeedButton20Click(Sender: TObject);
begin
   Edit1.Text:=Edit1.Text+'B';
end;

procedure TForm1.SpeedButton21Click(Sender: TObject);
begin
   Edit1.Text:=Edit1.Text+'C';
end;

procedure TForm1.SpeedButton22Click(Sender: TObject);
begin
   Edit1.Text:=Edit1.Text+'D';
end;

procedure TForm1.SpeedButton23Click(Sender: TObject);
begin
   Edit1.Text:=Edit1.Text+'E';
end;

procedure TForm1.SpeedButton24Click(Sender: TObject);
begin
   Edit1.Text:=Edit1.Text+'F';
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
   Edit1.Text:=Edit1.Text+'2';
end;

procedure TForm1.SpeedButton30Click(Sender: TObject);
begin
   Edit1.Clear;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
   Edit1.Text:=Edit1.Text+'3';
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
   Edit1.Text:=Edit1.Text+'4';
end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
   Edit1.Text:=Edit1.Text+'5';
end;

procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
   Edit1.Text:=Edit1.Text+'6';
end;

procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
   Edit1.Text:=Edit1.Text+'7';
end;

procedure TForm1.SpeedButton8Click(Sender: TObject);
begin
   Edit1.Text:=Edit1.Text+'8';
end;

procedure TForm1.SpeedButton9Click(Sender: TObject);
begin
   Edit1.Text:=Edit1.Text+'9';
end;

end.