unit1.pas

用Delphi写的简易计算器

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Splitter1: TSplitter;
    Panel2: TPanel;
    Panel3: TPanel;
    Splitter2: TSplitter;
    Panel4: TPanel;
    Panel5: TPanel;
    DirectoryListBox1: TDirectoryListBox;
    DriveComboBox1: TDriveComboBox;
    FilterComboBox1: TFilterComboBox;
    FileListBox1: TFileListBox;
    Splitter3: TSplitter;
    Edit1: TEdit;
    Label1: TLabel;
    Memo1: TMemo;
    Label2: TLabel;
    Panel6: TPanel;
    Splitter4: TSplitter;
    Panel7: TPanel;
    MonthCalendar1: TMonthCalendar;
    DateTimePicker1: TDateTimePicker;
    Edit2: TEdit;
    UpDown1: TUpDown;
    Timer1: TTimer;
    TrackBar1: TTrackBar;
    ProgressBar1: TProgressBar;
    Button1: TButton;
    ProgressBar2: TProgressBar;
    Button2: TButton;
    procedure FileListBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FileListBox1Click(Sender: TObject);
begin
     memo1.Text:=filelistbox1.FileName
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    if button1.caption='暂停' then
      begin
        button1.Caption:='继续';
        timer1.Enabled:=false;
      end
     else
       begin
        button1.Caption:='暂停';
        timer1.Enabled :=true;
       end;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
     if trackbar1.Position =100 then trackbar1.Position:=0;
     trackbar1.Position:=trackbar1.Position+1;

     if progressbar1.Position=100 then  progressbar1.Position:=0;
       progressbar1.StepBy(1);

       if progressbar2.Position=100 then  progressbar2.Position:=0;
       progressbar2.StepBy(1);
end;

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
     if updown1.Position=31 then
     updown1.Position:=0
     else
       begin
     if updown1.position=0 then
     updown1.position:=31;
       end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  form1.Close ;
end;

end.
.text:='';
     end;
     str:=edit1.text+'3';
     edit1.text:=str;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
if i=0 then
      begin
     i:=1;
     edit1.text:='';
     end;
     str:=edit1.text+'4';
     edit1.text:=str;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
if i=0 then
     begin
     i:=1;
     edit1.text:='';
     end;
     str:=edit1.text+'5';
     edit1.text:=str;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
if i=0 then
     begin
     i:=1;
     edit1.text:='';
     end;
     str:=edit1.text+'6';
     edit1.text:=str;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if i=0 then
     
      begin
     i:=1;
     edit1.text:='';
     end;
     str:=edit1.text+'7';
     edit1.text:=str;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if i=0 then
     begin

     i:=1;
     edit1.text:='';
     end;
     str:=edit1.text+'8';
     edit1.text:=str;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if i=0 then
     begin
     
     i:=1;
     edit1.text:='';
     end;
     str:=edit1.text+'9';
     edit1.text:=str;
end;

procedure TForm1.Button16Click(Sender: TObject);
begin

x:=strtofloat(edit1.text);
edit1.text:='';
op:=1;
i:=0;


end;

procedure TForm1.Button17Click(Sender: TObject);
begin
     y:=strtofloat(edit1.text);
     edit1.text:='';
     case trunc(op) of
     1:begin
       result:=x+y;
       edit1.text:=format('%g',[result]);

       end;
     2: begin
       result:=x-y;
       edit1.text:=format('%g',[result]);

         end;
     3: begin
      result:=x*y;
      edit1.text:=format('%g',[result]);

        end;
     4: begin
      result:=x/y;
      edit1.text:=format('%g',[result]);

      end;
     
       end;
     op:=0;
     
end;

procedure TForm1.Button12Click(Sender: TObject);
begin

x:=strtofloat(edit1.text);
edit1.text:='';
op:=2;
i:=0;



end;

procedure TForm1.Button8Click(Sender: TObject);
begin

x:=strtofloat(edit1.text);
edit1.text:='';
op:=3; i:=0;



end;

procedure TForm1.Button2Click(Sender: TObject);
begin

x:=strtofloat(edit1.text);
edit1.text:='';
op:=4;
i:=0;


end;

procedure TForm1.Button18Click(Sender: TObject);
begin
edit1.text:='';
op:=0;
i:=0;


end;

procedure TForm1.Button14Click(Sender: TObject);
begin

       x:=strtofloat(edit1.text);
        result:=sqrt(x);
        edit1.text:=format('%g',[result]);
        

end;

procedure TForm1.Button15Click(Sender: TObject);
begin
x:=strtofloat(edit1.text);
result:=1/x;
edit1.text:=format('%g',[result]);
end;

procedure TForm1.Button19Click(Sender: TObject);
begin
     if i=0 then
      begin
      edit1.Text:=' ';
      end
     else
      begin
       str:=edit1.text+'.';
       edit1.Text:=str;
      end;
end;

procedure TForm1.Button20Click(Sender: TObject);
begin
    form1.Close;
end;

end.