delphi7 计算器
Delphi7数学、金融等函数
Delphi7数学、金融等函数Delphi/Kylix跨平台运行时（Runtime）库Copyright(c)1996,2001Borland软件*************************************************************** *****这个单元包含高性能的算术、三角、对数、统计和金融方面的计算及FPU程序函数用于补充Delphi语言System.pas单元中的数学常规程序函数参考：1)P.J.Plauger,"The Standard C Library",Prentice-Hall,1992,Ch.7.《标准C程序库》2)W.J.Cody,Jr.,and W.Waite,"Software Manual For the Elementary Functions", Prentice-Hall,1980.《软件手册初步》3)Namir Shammas,"C/C++Mathematical Algorithms for Scientists and Engineers", McGraw-Hill,1995,Ch8.《C/C++数学的运算法则对于科学家和工程师》4)/doc/b72064808.html,u,"A Numerical Library in C for Scientists and Engineers",CRC Press,1994,Ch.6.《C 语言中的数字的程序库对于科学家和工程师》5)"Pentium(tm)Processor User’s Manual,Volume3:Architecture and Programming Manual",Intel,1994《Pentium(tm)处理器使用手册,第3册:体系结构和程序手册》注意1)对于有些函数，这个单元中涉及的概念或常数由EarlF.Glynn(/doc/b72064808.html,)和Ray Lischner(/doc/b72064808.html,)提供。
delphi7教程(1)
Delphi7.0软件程序编制规范3.2、Delphi7.0软件程序编制规范3.2.1、编制程序：根据系统分析要求编制程序，要求实现代码的复用、算法的优化、程序代码的优化、发现数据库设计不合理的及时反馈,减少循环嵌套，基础数据避免重复更新，保证进入的数据就是齐全的、正确的。
3.2.2、程序自测：负责按测试方案进行自测，交付测试的程序不能出现不能正常运行、未按公式计算的简单错误。
3.2.3、程序测试：将完成的程序转系统分析人员按测试方案测试。
3.2.4、开发工具的程序编制规范：详见详细规范。
3.2.5、.net编程规范一．安装方法：1、安装IIS与frontpage扩展：点击控制面板，点击添加删除程序，选择添加删除WINDOWS组件，选择应用程序服务器。
点击详细信息，选择internet信息服务IIS，点击详细信息，选择frontpage 2002 server extensions与internet信息服务管理器，按向导提示点击下一步，然后放入系统盘。
2、要在防火墙退出的环境下进行安装，把网线拔掉。
3、放入第一张光盘，他会提示安装.net必备,放入第三张光盘，根据向导提示安装。
安装完第一张、第二张就可以运行.net了.第四、五、六张为MSDN帮助文件。
(07.02.06添加)3.2.6、Delphi7.0编程规范第一部分：软件安装与控件安装方法一、软件安装：光盘或网络安装后,将光盘CRACK目录下dent.slip拷贝到安装路径下。
未注册信息将不再显示。
二、基本安装：1、对于单个控件，Componet-->install component..-->PAS或DCU文件-->install；2、对于带*.dpk文件的控件包，File-->Open(下拉列表框中选*.dpk)-->install即可；3、对于带*.bpl文件的控件包，Install Packages-->Add-->bpl文件名即可；4、如果以上Install按钮为失效的话，试试Compile按钮；5、是run time lib则在option下的packages下的runtimepackes加之。
delphi 用TList实现的简单计算器
interfaceusesWindows, Messages, SysUtils, Variants, Classes, Dialogs, Math, Graphics, Controls, Forms, StdCtrls;typeTForm1 = class(TForm)edt1: TEdit;btn10: TButton;btn1: TButton;btn2: TButton;btn3: TButton;btn4: TButton;btn5: TButton;btn6: TButton;btn7: TButton;btn8: TButton;btn9: TButton;btnEqual: TButton;btn12: TButton;btnC: TButton;btn14: TButton;procedure FormCreate(Sender: TObject);procedure FormDestroy(Sender: TObject);procedure opInput(Sender: TObject);procedure btnEqualClick(Sender: TObject);procedure btnCClick(Sender: TObject);function isDigit(s: string): Boolean;procedure numInput(Sender: TObject);//procedure numOpInput(Sender: TObject);private{}end;{自定义的TMyList类}TMyList = class(TList)end;varForm1: TForm1;List: TMyList;tempStr: string;implementation{$R *.dfm}{创建}procedure TForm1.FormCreate(Sender: TObject);beginList := TMyList.Create;edt1.Text := '';end;{释放}procedure TForm1.FormDestroy(Sender: TObject);beginList.Free;end;{判断一个字符串是否为数字}function TForm1.isDigit(s: string): Boolean;vari: Integer;beginResult := True;for i := 1 to Length(s) dobeginif not(s[i] in ['0'..'9','.']) thenResult := False;end;end;{输入数字处理}procedure TForm1.numInput(Sender: TObject);beginif(edt1.Text = '') or (string(st^) = '+') or (string(st^) = '*') then beginedt1.Text := (Sender as TButton).Caption;endelsebeginedt1.Text := edt1.Text + (Sender as TButton).Caption;end;tempStr := edt1.Text;end;{操作符处理}procedure TForm1.opInput(Sender: TObject);beginif isDigit(tempStr) and (tempStr <> '') thenbeginnew(str);str^ := tempStr;List.Add(str);tempStr := '';end;if List.Count = 0 thenbeginShowMessage('输入无效，请先输入数字');exit;//跳出本过程endelsebeginedt1.Text := (Sender as TButton).Caption;New(str);str^ := edt1.Text;List.Add(str);edt1.Clear;end;end;{等号处理list}procedure TForm1.btnEqualClick(Sender: TObject); var//tempResult: Extended;temp: Extended;tempStr1, tempStr2: string;i: Integer;beginnew(str);str^ := tempStr;List.Add(str);edt1.Clear;tempStr := '';if List.Count = 0 thenShowMessage('empty list')elsebeginfor i := 0 to List.Count - 1 dobegintempStr1 := string(List.Items[i]^);if tempStr1 = '+' thenbegintempStr1 := string(List.Items[i - 1]^);tempStr2 := string(List.Items[i + 1]^);New(str);str^ := FloatToStr(StrToFloat(tempStr1) + StrToFloat(tempStr2));List.Delete(i + 1);List.Insert(i + 1, str);end;if tempStr1 = '*' thenbegintempStr1 := string(List.Items[i - 1]^);tempStr2 := string(List.Items[i + 1]^);New(str);temp := StrToFloat(tempStr1) * StrToFloat(tempStr2);str^ := FloatToStr(temp);List.Delete(i + 1);List.Insert(i + 1, str);end;end;edt1.Text := string(List.Items[List.Count - 1]^);List.Clear;New(str);str^ := edt1.Text;List.Add(str);//ShowMessageFmt('count=%d',[List.Count]);end;end;procedure TForm1.btnCClick(Sender: TObject);beginif List.Count = 0 thenShowMessage('list为空，不用清空');List.clear;edt1.Text := '';end;end.。
第1章 Delphi 7快速入门
（2）在列表中选择“Borland Delphi6(7)”选项，如图1-9 所示，单击“Next”按钮。
（3）打开卸载模式选择窗口，如图1-10所示。 （ 4 ） 单 击 “ Next” 按 钮 ， 随 后 出 现 确 认 窗 口 ， 单 击 “Remove”按钮，出现程序卸载进度条。
（5）完成后，出现完成画面，如图1-11所示。单击 “Finish”按钮，程序卸载完成。
Save
Save All
Remove files from project Add files to project
New Form
View工具栏
View Unit
View Form
Toggle Form/unit
Debug工具栏
Run Pause
Trace Into
Step Over
Custom 工具栏 Help Content 定制工具栏
RAM 32M 64M
1.2.2 Delphi 7安装
Delphi 6(7)采用智能化安装方式，具体步骤如下： （1）把Delphi6(7)的安装光盘放入光驱中，系统会自动运行安装程 序，显示安装画面，如图1-1所示。 （2）用鼠标单击“Delphi”选项，出现安装向导进度条后，进入欢 迎窗口，如图1-2所示。 （3）单击“Next”按钮，随后进入Password Dialog窗口，输入系列 码、授权码，然后单击“Next”按钮。 （4）打开安装软件认证协议窗口，单击“Yes”按钮。 （5）进入消息Information窗口，单击“Next”按钮。 （6）指定Delphi6(7)安装方式，Delphi6(7)提供了三种选择：典型安 装、精简安装、自定义安装（如图1-3所示）。
Delphi7 常用组件的使用
【例7-1】 设计一个简易账号和密码的检 验程序。对输入的账号和密码规定如下：（1） 账号为不超过6位的数字，密码为4位字符， 在本题中，账号假设为123456，密码假定为 Pass。（2）输入密码时，在屏幕上不显示输 入的字符，而用“*”代替。（3）当输入不 正确，如账号为非数字字符或账号和密码输 入不正确时，将显示出消息框进行提示。程 序的设计界面如图7-1所示，程序的运行界面 如图7-2所示。
图7-1 程序设计界面
图7-2 程序运行界面
3．TMemo组件
（1）TMemo组件的常用属性
ScrollBars属性：该属性用来设置备注框是否出 现滚动条以及滚动条的种类。 Lines属性：按行处理文本。 WordWrap属性：该属性用来决定当输入的文本 到达右边界时是否插入软回车，以便换到下一行再输 入。
（3）TListBox组件的常用事件
TListBox组件响应的主要事件有：OnClick、 OnKeyDown、OnKeyPress、OnKeyUp等。
2． TComboBox组件
（1）DropDownCount属性：该属性用来设 置组合框的列表框中所能显示的列表项的最 大数目，默认情况下，列表框中可以显示8个 列表项，当超过8个列表框时将显示出垂直滚 动条。 （2）Style属性：该属性用来设置或返回组 合框的风格。
（2）TEdit组件的常用方法
SetFocus方法：该方法用于为编辑框设置焦点， 无参数。
Clear方法：该方法用来清除编辑框中的所有文 本，无参数。 ClearSelection方法：该方法用来清除编辑框中选 中的文本，无参数。 Undo方法：该方法用来撤消在编辑框中最近所 做的编辑操作。 ClearUndo方法：该方法用来清除“撤消”缓冲 区，从而不能对以前的操作做撤消操作，该方法无参 数。 SelectAll方法：该方法用来选中编辑框中的所 有文本。 CopyToClipboard方法：该方法用来把选中的文 本复制到剪贴板上，相当于复制操作。 CutToClipboard方法：该方法用来把选中的文 本移动到剪贴板上，相当于剪切操作。
delphi7操作
1,保存所做的工作及时地保存所做的工作至关重要。
对设计者来讲，有两个文件需要保存：库单元文件(以.PAS为后缀)和工程文件(以.DPR为后缀)。
从主菜单上选择File|Save Project As...项，Delphi会显示标题为“Save Unit1 As（先保存单元）”的文件保存对话框，Delphi 2.0 允许用户更改存储路径，您可以在下拉式列表框中选择。
最好将您的文件保存在自己的目录中。
在编辑框中键入demoform.pas以保存库单元文件；然后显示标题为“Save Project As（保存工程）”的另一个文件保存对话框，键入sample.dpr。
Delphi保存这两个文件并返回窗体窗口。
不要把库单元和工程存成一样的文件名，Delphi要求两者不同。
第一次保存后，以后可以随时通过Speed Bar中的“Save All（ctrl+shift+s）”和“Save file”来保存工程文件和库单元文件。
一般来讲，当确认文件的改变后，要同时存储这两个文件。
2，第一个范例：Caption属性：&RoundRec，则（按R键即触发这个键）（1）点动写有“Additional”的页标签，切换到Additional页，找到“Shape （形状部件）”部件(其图标为圆、方形、三角形三个几何体)。
Name：Shape1 （2）点动“Dialog”页标签，选择以16色网格做图标的ColorDialog部件并把它放到窗体的任意位置。
因为这一部件是不可视部件，所以它的位置并不影响大局。
Name：ColorDialog1加个按钮：ColorDialog1.Execute;Shape1.Brush.Color := ColorDialog1.Color;（3）“Additional”部件页，选择一个“BitBtn”按钮（4）按钮：Shape1.Shape := stRectangle;3. 常用的文本相关部件它们是Label(标签)、Edit(文本编辑)、MaskEdit(格式编辑)、Memo(备注)、List Box(列表框)、Combo Box(组合框)。
delphi实现计算器源码-完整版
private{ Private declarations }protected// procedure CreateParams(var Params: TCreateParams);override; public{ Public declarations }end;TRightEdit = class(TEdit)protectedprocedure CreateParams(var Params : TCreateParams);override; end;typeoperator = (Emp,add,sub,mul,divid); //空、加、减、乘、除varFrmCounter: TFrmCounter;MyRightEdit: TRightEdit;operate: Operator = emp;operate1: Operator = emp; //记录上一次用户按下的运算符Pointed: Boolean = False; //是否输入小数点temp: string = '';tempnum: Real = 0.0;implementation{$R *.dfm}//重载TRightEdit的CreateParams自定义编辑框的一些样式procedure TRightEdit.CreateParams(var Params : TCreateParams); begininherited;Params.Style := params.Style + ES_Right;end;//创建窗体时初始化一些参数procedure TFrmCounter.FormCreate(Sender: TObject);beginMyRightEdit := TrightEdit.Create(nil);with MyRightEdit dobeginparent := panel1;text := '0.';MyRightEdit.Height := 100;Align := alTop;Enabled := False;ReadOnly := True;show;end;end;//清零的响应函数procedure TFrmCounter.SBClearClick(Sender: TObject);beginPointed := False;MyRightEdit.Text := '0.';TempNum := 0.0;Operate := emp;temp := '';end;//数字键输入响应函数procedure TFrmCounter.SpeedButton1Click(Sender: TObject);varStrWidth: Integer;beginif (temp = '')or(Operate <> emp) thenTempNum := StrToFloat(MyRightEdit.Text);if Operate <> emp thenMyRightEdit.Text := '0.';Temp := Trim(MyRightEdit.Text);StrWidth := Length(temp);if Sender is TSpeedButton thenbeginif Operate <> emp thenbeginMyRightEdit.Text := '0.';Operate := emp;end;if Pointed = False thenbeginif StrToFloat(MyRightEdit.Text) = 0 thenMyRightEdit.Text := FloatToStr(StrToFloat(MyRightEdit.Text)+StrToInt(TSpeedButton(Sender).Caption))+'.'else beginInsert(Trim(TspeedButton(Sender).Caption),temp,StrWidth);MyRightEdit.Text := temp;end;endelse beginInsert(Trim(TSpeedButton(Sender).Caption),temp,StrWidth+1);MyRightEdit.Text := temp;end;end;end;//正负符号响应函数procedure TFrmCounter.SpeedButton13Click(Sender: TObject);beginif Operate <> emp thenbeginTempNum := StrToFloat(MyRightEdit.Text);MyRightEdit.Text := '0.';Operate := emp;end;if StrToFloat(MyRightEdit.Text) > 0 thenbeginMyRightEdit.Text := FloatToStr(-StrToFloat(MyRightEdit.Text));if Pos('.',Trim(MyRightEdit.Text))=0 thenMyRightEdit.Text := FloatToStr(StrToFloat(MyRightEdit.Text))+'.'; endelse if StrToFloat(MyRightEdit.Text)<0 thenbeginMyRightEdit.Text := FloatToStr(abs(StrToFloat(MyRightEdit.Text)));if Pos('.',Trim(MyRightEdit.Text))=0 thenMyRightEdit.Text := FloatToStr(StrToFloat(MyRightEdit.Text))+'.'; end;end;//小数点的输入procedure TFrmCounter.SpeedButton14Click(Sender: TObject);beginif Operate <> emp thenbeginOperate := emp;MyRightEdit.Text := '0';end;if Pointed = True thenBeepelsePointed := True;end;//显示运算结果procedure TFrmCounter.SpeedButton19Click(Sender: TObject);beginif (Operate = emp)and(Trim(temp)<>'') thenbegincase Operate1 ofadd: beginMyRightEdit.Text := FloatToStr(StrToFloat(MyRightEdit.Text)+TempNum);end;sub: beginMyRightEdit.Text := FloatToStr(TempNum-StrToFloat(MyRightEdit.Text));end;mul: beginMyRightEdit.Text := FloatToStr(TempNum*StrToFloat(MyRightEdit.Text));end;divid: beginif StrToFloat(MyRightEdit.Text)<>0 thenMyRightEdit.Text := FloatToStr(TempNum/StrToFloat(MyRightEdit.Text))elseApplication.MessageBox('除数不能为零。
《Delphi程序设计基础教程》 第1章 Delphi7集成开发环境
1.2 Delphi软件的安装及卸载
图1-10 设置安装路径
DELPHI程序设计基础教程
2020年1月9日星期四
1.2 Delphi软件的安装及卸载
选择完安装路径后，单击【next】按钮， 安装向导询问用户是否安装数据库保存到 本地硬盘，如图1-11所示。
DELPHI程序设计基础教程
2020年1月9日星期四
1.2 Delphi软件的安装及卸载
单击【Install】按钮，开始正式安装，如图1-13所 示。
图1-13 正式安装
DELPHI程序设计基础教程
2020年1月9日星期四
1.2 Delphi软件的安装及卸载
系统安装完毕后，用户可单击【Finish】按钮即可 ，如图1-14所示。
图1-14 系统安装完毕
DELPHI程序设计基础教程
2020年1月9日星期四
1.1 Delphi简介
Delphi7的新特点 Delphi7在继承了Delphi中能有效的帮助开发人员快速
的构造出所需的Windows应用程序等传统优势的同时，也进 行了进一步的完善和发展。
目前，Delphi7加强了集成开发环境、数据库、可视组 件库等方面功能。首先，为了顺应当今基于Web服务的电子 商务应用程序开发的潮流，Delphi7加强了使用商业XML的 Windows操作系统与Web Services兼容能力。其次，为了 更加便于程序员编程，Delphi7在集成开发环境中的组件面 板上新加入了一些组件并优化了代码编辑工作。再次， Delphi7使用Rave Reports（即目前可获得的第一个和唯一 的专业性可视化报表工具）技术，这大大加快了程序员创 建跨平台的报表的速度。另外，Delphi7增加了对Windows XP风格的支持。最后，Delphi7也为开发人员提供了更为可 靠的安全性的控制以及可伸缩性的开发需要。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
用delphi7实现简单的加减乘除，还有一些科学运算。
以下是一些源代码unit Unit1;interfaceusesWindows, Messages, SysUtils, V ariants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,math;typeTForm1 = 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;Edit1: TEdit;Button16: TButton;Button17: TButton;Button18: TButton;Button19: TButton;Button20: TButton;Button21: TButton;Button22: TButton;Button23: TButton;Button24: TButton;Button25: TButton;Button26: TButton;Button27: TButton;Button28: TButton;Button29: TButton;Button30: TButton;procedure Button13Click(Sender: TObject);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 Button14Click(Sender: TObject);procedure Button10Click(Sender: TObject);procedure Button12Click(Sender: TObject);procedure Button16Click(Sender: TObject);procedure Button15Click(Sender: TObject);procedure Button17Click(Sender: TObject);procedure Button18Click(Sender: TObject);procedure Button19Click(Sender: TObject);procedure Button20Click(Sender: TObject);procedure Button11Click(Sender: TObject);procedure Button21Click(Sender: TObject);procedure Button22Click(Sender: TObject);procedure Button23Click(Sender: TObject);procedure Button24Click(Sender: TObject);procedure Button25Click(Sender: TObject);procedure Button26Click(Sender: TObject);procedure Button27Click(Sender: TObject);procedure Button28Click(Sender: TObject);procedure Button29Click(Sender: TObject);procedure Button30Click(Sender: TObject); private{ Private declarations }public{ Public declarations }end;varForm1: TForm1;x:string;n:integer;implementation{$R *.dfm}procedure TForm1.Button13Click(Sender: TObject); beginedit1.Text :=edit1.Text +'0';end;procedure TForm1.Button1Click(Sender: TObject); beginedit1.Text :=edit1.Text +'1';end;procedure TForm1.Button2Click(Sender: TObject); beginedit1.Text :=edit1.Text +'2';end;procedure TForm1.Button3Click(Sender: TObject); beginedit1.Text :=edit1.Text +'3';end;procedure TForm1.Button4Click(Sender: TObject); beginedit1.Text :=edit1.Text +'4';end;procedure TForm1.Button5Click(Sender: TObject); beginedit1.Text :=edit1.Text +'5';end;procedure TForm1.Button6Click(Sender: TObject); beginedit1.Text :=edit1.Text +'6';end;procedure TForm1.Button7Click(Sender: TObject); beginedit1.Text :=edit1.Text +'7';end;procedure TForm1.Button8Click(Sender: TObject); beginedit1.Text :=edit1.Text +'8';end;procedure TForm1.Button9Click(Sender: TObject);beginedit1.Text :=edit1.Text +'9';end;procedure TForm1.Button14Click(Sender: TObject);beginedit1.Text :=edit1.Text +'.';end;procedure TForm1.Button10Click(Sender: TObject);beginclose;end;procedure TForm1.Button12Click(Sender: TObject);beginedit1.Clear ;end;procedure TForm1.Button16Click(Sender: TObject);beginn:=1;x:=edit1.Text;edit1.Clear ;end;procedure TForm1.Button15Click(Sender: TObject);begincase n of1:edit1.Text :=floattostr(strtofloat(x)+strtofloat(edit1.Text )); 2:edit1.Text :=floattostr(strtofloat(x)-strtofloat(edit1.Text )); 3:edit1.Text :=floattostr(strtofloat(x)*strtofloat(edit1.Text )); 4:if StrToFloat(Edit1.Text)=0 thenbeginEdit1.Text:='error';Exit;endelseedit1.Text :=floattostr(StrToFloat(x)/StrToFloat(Edit1.Text)); end;end;procedure TForm1.Button17Click(Sender: TObject);beginn:=2;x:=edit1.Text ;edit1.Clear ;end;procedure TForm1.Button18Click(Sender: TObject);beginn:=3;x:=edit1.Text ;edit1.Clear ;end;procedure TForm1.Button19Click(Sender: TObject);beginn:=4;x:=edit1.Text ;edit1.Clear ;end;procedure TForm1.Button20Click(Sender: TObject);beginx:=edit1.Text ;edit1.Text :=floattostr(sqr(strtofloat(x)));end;procedure TForm1.Button11Click(Sender: TObject);beginif (Edit1.Text='0') or (length(Edit1.Text)=1) thenEdit1.Text:=''elseEdit1.Text:=Copy(Edit1.Text,0,length(Edit1.Text)-1); end;procedure TForm1.Button21Click(Sender: TObject);beginedit1.Text :=floattostr(sin(strtofloat(edit1.Text )*(pi/180)));end;procedure TForm1.Button22Click(Sender: TObject);beginedit1.Text :=floattostr(cos(strtofloat(edit1.Text)*(pi/180)));end;procedure TForm1.Button23Click(Sender: TObject);beginedit1.Text :=floattostr(tan(strtofloat(edit1.Text)*(pi/180)));end;procedure TForm1.Button24Click(Sender: TObject);beginedit1.Text :=floattostr(arcsin(strtofloat(edit1.Text ))*(180/pi)); end;procedure TForm1.Button25Click(Sender: TObject);beginedit1.Text :=floattostr(arccos(strtofloat(edit1.Text ))*(180/pi));end;procedure TForm1.Button26Click(Sender: TObject);beginedit1.Text :=floattostr(ln(strtofloat(edit1.Text )));end;procedure TForm1.Button27Click(Sender: TObject);beginedit1.Text :=floattostr(log10(strtofloat(edit1.Text )));end;procedure TForm1.Button28Click(Sender: TObject);beginedit1.text:= floattostr(pi);end;procedure TForm1.Button29Click(Sender: TObject);beginedit1.Text :=floattostr(exp(strtofloat(edit1.Text ))) ;end;procedure TForm1.Button30Click(Sender: TObject); beginedit1.Text :=floattostr(sqrt(strtofloat(edit1.Text )) ); end;End.功能截图。