代码2Word下载.docx

代码2Word下载.docx

《代码2Word下载.docx》由会员分享，可在线阅读，更多相关《代码2Word下载.docx（11页珍藏版）》请在冰豆网上搜索。

Button12:

Button13:

Button14:

Button15:

Button16:

Button21:

Button22:

Button23:

Button24:

Button17:

Button18:

Button19:

Edit1:

TEdit;

MainMenu1:

TMainMenu;

E1:

TMenuItem;

H1:

C1:

P1:

A1:

procedureButton9Click（Sender:

TObject）;

procedureFormCreate（Sender:

procedureButton4Click（Sender:

procedureButton8Click（Sender:

procedureButton12Click（Sender:

procedureButton16Click（Sender:

procedureButton22Click（Sender:

procedureButton21Click（Sender:

procedureButton23Click（Sender:

procedureButton10Click（Sender:

procedureButton11Click（Sender:

procedureButton5Click（Sender:

procedureButton6Click（Sender:

procedureButton7Click（Sender:

procedureButton1Click（Sender:

procedureButton2Click（Sender:

procedureButton3Click（Sender:

procedureButton13Click（Sender:

procedureButton14Click（Sender:

procedureButton15Click（Sender:

procedureButton17Click（Sender:

procedureC1Click（Sender:

procedureP1Click（Sender:

procedureButton19Click（Sender:

procedureButton24Click（Sender:

procedureButton18Click（Sender:

procedureFormCanResize（Sender:

TObject;

varNewWidth,

NewHeight:

Integer;

varResize:

Boolean）;

private

{Privatedeclarations}

public

{Publicdeclarations}

end;

var

Form1:

TForm1;

FyunsuanfuFlag:

Boolean;

Fynsuanfu:

AnsiChar;

FLaststr:

ShortString;

FdoubleFlag:

Fclick:

implementation

{$R*.dfm}

functioncheckkindtoNum（s:

string）:

Variant;

begin

ifs<

>

'

then

ifPos（'

.'

s）=0then

Result:

=StrToInt64（s）

else

result:

=StrToFloat（s）;

functionjisuan2（str:

String）:

String;

vars:

aa:

bb:

=checkkindtoNum（FLaststr）;

=checkkindtoNum（str）;

caseFynsuanfuof

+'

:

s:

=FloatToStr（aa+bb）;

-'

=FloatToStr（aa-bb）;

*'

=FloatToStr（aa*bb）;

/'

=FloatToStr（aa/bb）;

^'

=FloatToStr（sqr（bb））;

x'

=FloatToStr（1/bb）;

%'

=FloatToStr（sqrt（bb））;

End;

=s;

='

~'

;

=false;

procedureTForm1.Button9Click（Sender:

ifFdoubleFlagOr（Edit1.Text='

0'

）then

Edit1.Text:

=False;

Edit1.Text:

=Edit1.Text+'

1'

=True;

procedureTForm1.FormCreate（Sender:

FyunsuanfuFlag:

=False;

0.'

SetWindowLong（Edit1.Handle,GWL_STYLE,GetWindowLong（Edit1.Handle,GWL_STYLE）orEs_right）;

procedureTForm1.Button4Click（Sender:

ifedit1.text<

ifFyunsuanfuFlagand（FLaststr<

）andFclickthen

Begin

=jisuan2（Edit1.Text）;

endelse

=true;

Fynsuanfu:

=Edit1.Text;

procedureTForm1.Button8Click（Sender:

end;

procedureTForm1.Button12Click（Sender:

procedureTForm1.Button16Click（Sender:

=jisuan2（Edit1.Text）;

procedureTForm1.Button22Click（Sender:

procedureTForm1.Button21Click（Sender:

procedureTForm1.Button23Click（Sender:

procedureTForm1.Button10Click（Sender:

2'

procedureTForm1.Button11Click（Sender:

3'

procedureTForm1.Button5Click（Sender:

4'

procedureTForm1.Button6Click（Sender:

5'

procedureTForm1.Button7Click（Sender:

6'

procedureTForm1.Button1Click（Sender:

7'

procedureTForm1.Button2Click（Sender:

8'

procedureTForm1.Button3Click（Sender:

9'

procedureTForm1.Button13Click（Sender:

ifEdit1.Text<

procedureTForm1.Button14Click（Sender:

Var

s:

string;

=edit1.text;

ifEdit1.Text[1]<

Insert（'

s,1）;

Delete（s,1,1）;

procedureTForm1.Button15Click（Sender:

Edit1.Text）=0then

=Edit1.Text+'

;

procedureTForm1.Button17Click（Sender:

=Edit1.Text;

delete（s,length（Edit1.Text）,1）;

=s;

ifFyunsuanfuFlagthen

procedureTForm1.C1Click（Sender:

Edit1.CutToClipboard;

procedureTForm1.P1Click（Sender:

Edit1.PasteFromClipboard;

procedureTForm1.Button19Click（Sender:

procedureTForm1.Button24Click（Sender:

Edit1.text:

procedureTForm1.Button18Click（Sender:

procedureTForm1.FormCanResize（Sender:

NewHeight:

Resize:

end.

界面：