delphi编写简单算式计算器

DELPHI编写简单算式计算器/EDIT1中产生算式，EDIT2中输入数字并产生结果/按键123467890/。清空C撤消正负号/UNITJISUANQIUNIT1INTERFACEUSESWINDOWS,MESSAGES,SYSUTILS,VARIANTS,CLASSES,GRAPHICS,CONTROLS,FORMS,DIALOGS,STDCTRLSTYPETFORM1CLASSTFORMEDIT1TEDITBUTTON1TBUTTONBUTTON2TBUTTONBUTTON3TBUTTONBUTTON4TBUTTONBUTTON5TBUTTONBUTTON6TBUTTONBUTTON7TBUTTONBUTTON8TBUTTONBUTTON9TBUTTONBUTTON10TBUTTONBUTTON11TBUTTONBUTTON12TBUTTONBUTTON13TBUTTONBUTTON14TBUTTONBUTTON15TBUTTONBUTTON0TBUTTONBUTTON16TBUTTONBUTTON17TBUTTONEDIT2TEDITBUTTON18TBUTTONPROCEDUREBUTTON1CLICKSENDERTOBJECTPROCEDUREBUTTON2CLICKSENDERTOBJECTPROCEDUREBUTTON3CLICKSENDERTOBJECTPROCEDUREBUTTON4CLICKSENDERTOBJECTPROCEDUREBUTTON5CLICKSENDERTOBJECTPROCEDUREBUTTON6CLICKSENDERTOBJECTPROCEDUREBUTTON7CLICKSENDERTOBJECTPROCEDUREBUTTON8CLICKSENDERTOBJECTPROCEDUREBUTTON9CLICKSENDERTOBJECTPROCEDUREBUTTON0CLICKSENDERTOBJECTPROCEDUREBUTTON15CLICKSENDERTOBJECTPROCEDUREBUTTON10CLICKSENDERTOBJECTPROCEDUREBUTTON11CLICKSENDERTOBJECTPROCEDUREBUTTON12CLICKSENDERTOBJECTPROCEDUREBUTTON13CLICKSENDERTOBJECTPROCEDUREFORMCREATESENDERTOBJECTPROCEDUREBUTTON14CLICKSENDERTOBJECTPROCEDUREBUTTON16CLICKSENDERTOBJECTPROCEDUREBUTTON17CLICKSENDERTOBJECTPROCEDUREBUTTON18CLICKSENDERTOBJECTPRIVATEPRIVATEDECLARATIONSPUBLICPUBLICDECLARATIONSENDVARFORM1TFORM1NUM1REAL/只参与加和减的数值NUM2REAL/直接参与乘和除的数值NOWNUMREAL/在已经输入的最后一个运算符号之前的那个数YSF1STRING/算式中还未计算的运算符号中的第一个YSF2STRING/算式中还未计算的运算符中的第二个RESTARTBOOLEAN/BOOLEANTRUE可以输入数字，BOOLEANFALSE运算终止IMPLEMENTATIONRDFMPROCEDURETFORM1BUTTON1CLICKSENDERTOBJECTBEGINIFRESTARTTRUETHENBEGINIFEDIT1TEXT0/0不能作为整数的第一个数字THENEDIT1TEXTEDIT1TEXT1ELSEEDIT1TEXT1/在输入输出框中输入1ENDENDPROCEDURETFORM1BUTTON2CLICKSENDERTOBJECTBEGINIFRESTARTTRUETHENBEGINIFEDIT1TEXT0/0不能作为整数的第一个数字THENEDIT1TEXTEDIT1TEXT2ELSEEDIT1TEXT2/在输入输出框中输入2ENDENDPROCEDURETFORM1BUTTON3CLICKSENDERTOBJECTBEGINIFRESTARTTRUETHENBEGINIFEDIT1TEXT0/0不能作为整数的第一个数字THENEDIT1TEXTEDIT1TEXT3ELSEEDIT1TEXT3/在输入输出框中输入3ENDENDPROCEDURETFORM1BUTTON4CLICKSENDERTOBJECTBEGINIFRESTARTTRUETHENBEGINIFEDIT1TEXT0/0不能作为整数的第一个数字THENEDIT1TEXTEDIT1TEXT4ELSEEDIT1TEXT4/在输入输出框中输入4ENDENDPROCEDURETFORM1BUTTON5CLICKSENDERTOBJECTBEGINIFRESTARTTRUETHENBEGINIFEDIT1TEXT0/0不能作为整数的第一个数字THENEDIT1TEXTEDIT1TEXT5ELSEEDIT1TEXT5/在输入输出框中输入5ENDENDPROCEDURETFORM1BUTTON6CLICKSENDERTOBJECTBEGINIFRESTARTTRUETHENBEGINIFEDIT1TEXT0/0不能作为整数的第一个数字THENEDIT1TEXTEDIT1TEXT6ELSEEDIT1TEXT6/在输入输出框中输入6ENDENDPROCEDURETFORM1BUTTON7CLICKSENDERTOBJECTBEGINIFRESTARTTRUETHENBEGINIFEDIT1TEXT0/0不能作为整数的第一个数字THENEDIT1TEXTEDIT1TEXT7ELSEEDIT1TEXT7/在输入输出框中输入7ENDENDPROCEDURETFORM1BUTTON8CLICKSENDERTOBJECTBEGINIFRESTARTTRUETHENBEGINIFEDIT1TEXT0/0不能作为整数的第一个数字THENEDIT1TEXTEDIT1TEXT8ELSEEDIT1TEXT8/在输入输出框中输入8ENDENDPROCEDURETFORM1BUTTON9CLICKSENDERTOBJECTBEGINIFRESTARTTRUETHENBEGINIFEDIT1TEXT0/0不能作为整数的第一个数字THENEDIT1TEXTEDIT1TEXT9ELSEEDIT1TEXT9/在输入输出框中输入9ENDENDPROCEDURETFORM1BUTTON0CLICKSENDERTOBJECTBEGINIFRESTARTTRUETHENBEGINIFEDIT1TEXT0/0不能作为整数的第一个数字THENEDIT1TEXTEDIT1TEXT0ELSEEDIT1TEXT0/在输入输出框中输入0ENDENDPROCEDURETFORM1BUTTON15CLICKSENDERTOBJECTBEGIN/清空EDIT1TEXTEDIT2TEXTNUM10NUM21YSF1YSF2RESTARTTRUEENDPROCEDURETFORM1BUTTON10CLICKSENDERTOBJECTBEGIN/加法IFRESTARTTRUETHENBEGINNOWNUMSTRTOFLOATEDIT1TEXTIFNOWNUMANDYSF1THENYSF1/23ENDELSEIFYSF2/12THENNUM2NUM2NOWNUM/21ELSEIFYSF2/12/3THENBEGINNUM2NUM2/NOWNUM/NUM22,NOWNUM3,NUM11YSF2ENDEDIT1TEXTENDENDPROCEDURETFORM1BUTTON13CLICKSENDERTOBJECTBEGIN/除法IFRESTARTTRUETHENBEGINNOWNUMSTRTOFLOATEDIT1TEXTIFNOWNUMANDYSF1THENYSF1/ENDELSEIFYSF2THENBEGINNUM2NUM2NOWNUMYSF2/ENDELSEIFYSF2/12/3/THENBEGINNUM2NUM2/NOWNUMENDEDIT1TEXTENDEND/变量初始化PROCEDURETFORM1FORMCREATESENDERTOBJECTBEGINNUM10NUM21YSF1YSF2RESTARTTRUEEND/等号PROCEDURETFORM1BUTTON14CLICKSENDERTOBJECTBEGINIFRESTARTTRUETHENBEGINNOWNUMSTRTOFLOATEDIT1TEXTIFNOWNUMANDRESTARTTRUETHENEDIT1TEXTCOPYEDIT1TEXT,1,LENGTHEDIT1TEXT1END/PROCEDURETFORM1BUTTON18CLICKSENDERTOBJECTBEGINIFEDIT1TEXT0ANDRESTAR