Calculator (add a decimal point). . .

Unit Jisuanqiu;

Interface

Uses Windows, Messages, Sysutils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Stdctrls, ExtCtrls

type TForm1 = class (TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: ​​TButton; Button8: TButton; Button9: TButton; Button10: TButton; Button11: TButton ; Button12: TButton; Button13: TButton; Button14: TButton; Button15: TButton; Panel1: TPanel; Edit1: TEdit; Button17: TButton; Button16: TButton; Button18: TButton; procedure Button1Click (Sender: TObject); procedure Button2Click (Sender: TObject); procedure Button3Click (Sender: TObject); procedure Button4Click (Sender: TObject); procedure Button5Click (Sender: TObject); procedure Button6Click (Sender: TObject); procedure Button7Click (Sender: TObject); procedure Button8Click (Sender: TObject) ; procedure Button9Click (Sender: TObject); procedure Button10Click (Sender: TObject); procedure Button12Click (Sender: TObject); procedure Button13Click (Sender: TObject); procedure Butto n14Click (Sender: TObject); procedure Button15Click (Sender: TObject); procedure Button17Click (Sender: TObject); procedure Button16Click (Sender: TObject); procedure Button11Click (Sender: TObject); procedure FormShow (Sender: TObject); procedure Button18Click ( Sender: TOBJECT); private {private declarations}

Var Form1: TForm1; // Num, Num1, Num2: Integer; S, J, I, S_Number, S_TYPE, S_CHARACTERLAST: STRING; IMPLEMENTATION

{$ R * .dfm}

Procedure TForm1.Button1Click (Sender: Tobject); Beginif S_TYPE = '1' TENBEGIN Edit1.Text: = Edit1.Text '1'; s: = '123'; endelse begin edit1.text: = '; Edit1.Text : = Edit1.Text '1'; s_type: = '1'; end; end; procedure tform1.button2click (sender: TOBJECT); beginif s_type = '1' Then Begin Edit1.Text: = Edit1.Text '2'; S: = '123'; endelse begin edit1.text: = '; edit1.text: = edit1.text ' 2 '; s_type: =' 1 '; end; end; procedure tform1.button3click (sender: TOBJECT); Beginif s_type = '1' dam edit1.text: = edit1.text '3'; s: = '123'; endelse begin edit1.text: = '; edit1.text: = edit1.text ' 3 '; s_type : = '1'; END ;; end;

Procedure TForm1.Button4Click (Sender: Tobject); Beginif S_TYPE = '1' Ten Begin Edit1.Text: = Edit1.Text '4'; s: = '123'; endelse begin edit1.text: = '; Edit1.Text : = Edit1.Text '4'; s_type: = '1'; end; end;

Procedure tForm1.Button5Click (Sender: TOBJECT); beginif s_type = '1' Ten Begin Edit1.Text: = Edit1.Text '5'; s: = '123'; endelse begin edit1.text: = '; Edit1.Text : = Edit1.Text '5'; s_type: = '1'; end; end;

Procedure TForm1.Button6Click (Sender: TOBJECT); beginif s_type = '1' Then Begin Edit1.text: = Edit1.Text '6'; s: = '123'; endelse begin edit1.text: = '; edit1.text : = Edit1.Text '6'; s_type: = '1'; end; end;

Procedure TForm1.Button7Click (Sender: TOBJECT); beginif s_type = '1' Ten Begin Edit1.Text: = Edit1.Text '7'; s: = '123'; endelse begin edit1.text: = '; Edit1.Text : = edit1.text '7'; s_type: = '1'; end; end; procedure tform1.button8click (sender: TOBJECT); beginif s_type = '1' Then Begin Edit1.Text: = Edit1.Text '8'; S: = '123'; endelse begin edit1.text: = '; edit1.text: = edit1.text ' 8 '; s_type: =' 1 '; end; end;

Procedure tForm1.Button9Click (Sender: TOBJECT); Beginif S_TYPE = '1' Then Begin Edit1.Text: = Edit1.Text '9'; s: = '123'; endelse begin edit1.text: = '; Edit1.Text : = Edit1.Text '9'; s_type: = '1'; end; end;

Procedure TFORM1.BUTTON10CLICK (Sender: TOBJECT); Begin

If S_TYPE = '1' Then Begin Edit1.Text: = Edit1.Text '0'; s: = '123'; endelse begin edit1.text: = '; edit1.text: = edit1.text ' 0 '; s_type : = '1'; END;

END;

Procedure tform1.button12click (sender: TOBJECT); begin s_type: = '0'; if s = '' Then Application.MessageBox ('Please enter the number first ",' Tip: ', 0) ELSE IF i <>' 'Then Begin if s_characterlast = 'x' Then Begin Edit1.text: = floattostr (strtofloat (s_number)); s_number: = Edit1.Text; s_characterlast: = ' '; i: = ''; END ;

If S_CHARACTERLAST = ' ' Then Begin Edit1.text: = floattostr (STRTOFLOAT (S_Number) StrtOFLOAT (Edit1.Text)); S_Number: = Edit1.Text; S_Characterlast: = ' '; i: = ''; END; If S_CHARACTERLAST = '-' Then Begin Edit1.Text: = floattostr (STRTOFLOAT (S_Number) - StrtOFLOAT (Edit1.Text)); S_Number: = Edit1.Text; S_Characterlast: = ' '; i: = ''; end;

If S_CHARACTERLAST = '/' TENBEGIN Edit1.Text: = floattostr (STRTOFLOAT (S_Number) / StrtOfloat (edit1.text)); s_number: = Edit1.Text; s_characterlast: = ' '; i: = '; end; End // ************* // Else Begin S_Characterlast: = ' '; S_Number: = Edit1.Text; I: = '8567'; END; J: = '3432' ;

Procedure TForm1.Button13Click (Sender: Tobject); Begin S_TYPE: = '0'; if S = '' THEN

Application.MessageBox ('Please enter the number first ",' prompt: ', 0) Else if i <>' 'Then Begin if s_characterlast =' x 'Ten Begin Edit1.Text: = floattostr (STRTOFLOAT (S_Number) * STRTOFLOAT (Edit1 .Text); s_number: = edit1.text; s_characterlast: = '-'; i: = ''; end;

If S_CHARACTERLAST = ' ' Then Begin Edit1.Text: = floattostr (STRTOFLOAT (S_Number)); s_number: = edit1.text; s_characterlast: = '-'; i: = '; If S_CHARACTERLAST = '-' Then Begin Edit1.Text: = floattostr (STRTOFLOAT (S_Number) - StrtOFLOAT (Edit1.Text)); S_Number: = Edit1.Text; S_Characterlast: = '-'; i: = ';

If S_CHARACTERLAST = '/' TENBEGIN Edit1.Text: = floattostr (STRTOFLOAT (S_Number) / StrtOFLOAT (Edit1.Text)); S_Number: = Edit1.Text; S_Characterlast: = '-'; i: = '; END; End // ************* // Else Begin S_Characterlast: = '-'; s_number: = Edit1.Text; I: = '432423'; End; J: = '3432' ;

Procedure TForm1.Button14Click (Sender: TOBJECT); begin s_type: = '0'; if s = '' THEN

Application.MessageBox ('Please enter the number first ",' prompt: ', 0) Else if i <>' 'Then Begin if s_characterlast =' x 'Ten Begin Edit1.Text: = floattostr (STRTOFLOAT (S_Number) * STRTOFLOAT (Edit1 .Text); s_number: = edit1.text; s_characterlast: = 'x'; i: = '; end;

If S_CHARACTERLAST = ' ' Then Begin Edit1.text: = floattostr (STRTOFLOAT (S_Number) StrtOFLOAT (Edit1.Text)); s_number: = edit1.text; s_characterlast: = 'X'; i: = '; END; If S_CHARACTERLAST = '-' Then Begin Edit1.Text: = floattostr (STRTOFLOAT (S_Number) - StrtOFLOAT (Edit1.Text)); S_Number: = Edit1.Text; S_Characterlast: = 'X'; i: = '; end;

If S_CHARACTERLAST = '/' TENBEGIN Edit1.text: = floattostr (STRTOFLOAT (S_Number) / StrtOFLOAT (Edit1.Text)); S_Number: = Edit1.Text; S_Characterlast: = 'x'; i: = '; END; End // ************* // else begin s_characterlast: = 'x'; s_number: = Edit1.Text; I: = '34342'; end; j: = '3432' ;

Procedure tform1.button15click (sender: TOBJECT); begin s_type: = '0'; if s = '' Then Application.MessageBox ('Please enter the number first ",' Tip: ', 0) Else IF i <>' 'Then Begin if s_characterlast = 'x' Then Begin Edit1.text: = floattostr (STRTOFLOAT); edit1.text); s_number: = edit1.text; s_characterlast: = '/'; i: = '; end ;

If S_CHARACTERLAST = ' ' Then Begin Edit1.Text: = floattostr (STRTOFLOAT (S_Number) StrtOFLOAT (Edit1.Text)); S_Number: = Edit1.Text; S_Characterlast: = '/'; i: = ''; end; If S_CHARACTERLAST = '-' Then Begin Edit1.Text: = floattostr (STRTOFLOAT (S_Number)); S_Number: = Edit1.Text; S_Characterlast: = '/'; i: = ''; END;

If S_CHARACTERLAST = '/' TENGIN Edit1.Text: = floattostr (STRTOFLOAT (S_Number) / StrtOFLOAT (Edit1.Text)); s_number: = Edit1.Text; s_characterlast: = '/'; i: = '; end; End // ************* // Else Begin S_Characterlast: = '/'; s_number: = Edit1.Text; I: = '3432'; END; J: = '3432' ;

Procedure TFORM1.BUTTON17Click (Sender: TOBJECT); beginclose;

Procedure tForm1.Button16Click (Sender: TOBJECT); beginif s_type = '1' Then IF (edit1.text = ') THEN becom Edit1.text: = Edit1.Text ' 0. '; s: =' 123 '; J: = '; ELSE begin edit1.text: = Edit1.text '. '; s: =' 123 '; endelse begin if (j <>') Then Begin Edit1.Text: = '; Edit1.Text: = Edit1.Text '0.'; s_type: = '1'; j: = '; END ELSE BEGIN Edit1.Text: ='; Edit1.Text: = Edit1.Text '.'; s_type: = '1 End; end;

Procedure tform1.button11click (sender: TOBJECT); begin // ===================================== == // s_type: = '0'; if s = '' ThenApplication.MessageBox ('Please enter the number first ",' prompt: ', 0) Else if s_characterlast <>' 'Then Begin if s_characterlast =' x 'Then Begin edit1.text: = floattostr (strtOfloat (s_number) * strtofloat (edit1.text)); s_number: = edit1.text;

If S_CHARACTERLAST = ' ' Then Begin Edit1.text: = floattostr (strtOfloat (S_Number) STRTOFLOAT (Edit1.Text)); s_number: = edit1.text;

If S_CHARACTERLAST = '-' Ten Begin Edit1.Text: = floattostr (STRTOFLOAT (S_Number) - StrtOFLOAT (Edit1.Text)); S_Number: = Edit1.Text; End;

If S_CHARACTERLAST = '/' TENBEGIN Edit1.Text: = floattostr (STRTOFLOAT (S_Number) / StrtOFLOAT (Edit1.Text)); S_Number: = Edit1.Text; End; End; J: = '3432'; END;

Procedure TForm1.FormShow (Sender: Tobject); Beginj: = ''; s_type: = '1'; end;

Procedure TFORM1.BUTTON18Click (Sender: TOBJECT); begin edit1.text: = ';

End.