delphi法公式（Delphi中公式的实现，及对edit的判断）

本文目录

• Delphi中公式的实现，及对edit的判断
• delphi中怎么求对数
• 用delphi编程计算三角形的面积
• delphi的加法如何让写
• Delphi 高手 自定义公式
• 求DELPHI一个计算公式计算要求是
• delphi 自定义公式
• delphi里如何编写计算公式
• Delphi 中怎么实现一个公式求整数去掉小数点后面部分，和怎么让程序关闭后在打开edit显示关闭前的数据

Delphi中公式的实现，及对edit的判断

几个思路及要注意的地方。1、必须要判断每个Edit输入的内容是否是数字，否则会出错。//检测按下的键是不是0到9和退格键 procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char); begin if not (Key in ) then Key := #0; end; 2、判断没有输入可以简单地用 if Edit1.Text = ’’ then Showmessage(’XXX值不能为空。’); Edit1.SetFocus;3、判断是否是正数， if inttostr(Edit1.Text)《0 then Showmessage(’XXX值不能为负值。’);4、由于框比较多，可以考虑用判断控件类型来一次性对所以框进行正负值判断，这样效率比较高。 procedure TForm1.Button1Click(Sender: TObject);var i :integer; Tmp:string;begin for i := 0 to ComponentCount - 1 do if Components is TEdit then begin Tmp:=(Components as TEdit).Text; try if StrtoInt(Tmp)《 0 then begin MessageBox(0,’输入值不能为负数’,’错误’,MB_OK+MB_ICONERROR); Break; Exit; end; except MessageBox(0,’只允许输入数值！’,’错误’,MB_OK+MB_ICONERROR); Break; Exit; end; end;end;

delphi中怎么求对数

输入自然对数可以直接用ln函数，5的自然对数就是ln(5);输入非对数可以用对数换底公式换算，写成关于自然对数的表达式，如：log5（7）可以写成ln(7)/ln(5);对数换底公式loga(b)=logc(b)/logc(a);

用delphi编程计算三角形的面积

1、三角形面积=1/2*底*高（三边都可做底） 2、三角形面积=1/2absinC=1/2acsinB=1/2bcsinA 3、三角形面积=abc/4R(其中R是三角形外接圆半径） 4、海伦公式: 三角形的面积的平方＝p(p-a)(p-b)(p-c) p=1/2(a+b+c)

delphi的加法如何让写

delphi的加法：edit3.text := inttostr(strtoint(edit1.text) + strtoint(edit2.text));

delphi下赋值语句表征一个OnClick事件。当按钮按动后，将框部件Edit1的Color属性置为clRed:

procedureTForm1.Button1Click(Sender:TObject);

begin

Edit1.Color:=clRed;

end；

扩展资料：

delphi的连续加法可以使用case语句：

下面的例程显示一个使用case语句的窗体：

建立如下的事件处理过程：

procedureTForm1.Button1Click(Sender:TObject);

var

Number:Integer;

begin

Number:=StrToInt(Edit1.Text);

caseNumberof

1,3,5,7,9:Label2.Caption:=’奇数’;

0,2,4,6,8:Label2.Caption:=’偶数’;

10..100:

begin

Label2.Caption:=’在10到100之间’;

Form1.Color:=clBlue;

end;

else

Label2.Caption:=’大于100或为负数’;

end;

end；

参考资料来源：百度百科-delphi

Delphi 高手 自定义公式

e是表示什么？看你的示例里的公式，如果刚好能在delphi中实现。你直接取出公式x，传到一个函数function f(x:string):string，函数里stringreplace(x,’a’,’%0:d’,)，依次用%1:d取代b2取代c3取代d。返回的一个字符串就是类似%0:d div %1:d +%2:d到时候要用，就format(f(x),)如果你写的公式是随便写的，比如除法是用% ，多取代一次，用div替换就好。哦注意div是整型相除，如果是浮点数相除要用/刚刚没注意这个，抱歉你还是全部用浮点型的，然后先替换div成/，再替换d %3:f

求DELPHI一个计算公式计算要求是

第三行写错了吧？应该是2000*2+1000*3+600*4【请确认】？如果是这样那代码如下【DELPHI里新建一个窗体放置一个button两个edit】【下面都是代码，测试通过】unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);var x,y,z,i:Integer;begin x:=StrToIntDef(edit1.Text,0); y:=x-2000; if(y》0)then z:=2000*2//设置z初始值 else z:=x*2; i:=3;//设置i初始值 while (y》=1000) do//对y解析 Begin y:=y-1000;//每一级计算一次 z:=z+1000*i; i:=i+1; end; if(y》0)then z:=z+y*i;//计算零头 Edit2.Text:=FormatFloat(’0’, z);end;end.答案补充 那这个应该可以解决问题了，你可以试试，有疑问再提

delphi 自定义公式

如果仅仅是四则运算可以参考 pascal 版的《数据结构》里面有实现四则运算算法然后制定个规则，公式变量序列 x,y,z,.... 系列字母，满足最大参数要求调用时提供可变参数，参数按公式变量序列来替代函数原型建议如下：Varriant function Operation(expressions: string,...)begin // 1.替换 x,y,z 值 // 2. 将替换后的字串执行四则运算 // 3.返回可变类型值end;experssions: 为你的计算表达式模板，即公式... 为可变参数，统一用字串吧如 i = Operation(’y+(x*0.15)’,’0.1’,’3’);即 x = 0.1 , y = 3

delphi里如何编写计算公式

edit1.text := inttostr(strtoint(label1.caption)*strtoint(label2.caption));edit3.text := inttostr(strtoint(edit1.text)-strtoint(edit2.text));

Delphi 中怎么实现一个公式求整数去掉小数点后面部分，和怎么让程序关闭后在打开edit显示关闭前的数据

1、关于取整，你没说取整规则。 添加引用：Math 直接删除小数部分，返回整数：trunc，如果trunc（2.234），则返回 2。其他：trunc 和 round 是 system unit 里的函数，缺省就可以用。floor 直接往小的取，比如 floor(-123.55)=-124，floor(123.55)=123trunc 直接切下整数，比如 trunc(-123.55)=-123, floor(123.55)=123ceil 直接往大的取，比如 ceil(-123.55)=-123， ceil(123.55)=124round 计算四舍五入，比如 round(-123.55)=-124，round(123.55)=1242、重启后text自动读取 两种方案，写注册表，或者写ini文件。 写注册表：不用额外添加文件，速度快，但会使注册表变大。不过数据少也无所谓了。 写ini文件：需要生成额外的文件。引用IniFiles。procedure TForm1.Button2Click(Sender: TObject);var ini:TIniFile; num : integer; name: string;begin Ini := TIniFile.Create(’c:\aa.ini’); //读取 num:= ini.ReadInteger(’nums’,’num1’,0); name:= ini.ReadString(’names’,’name1’,’’); //写入 name := ’李三’; num := 1; ini.WriteString(’names’,’name1’,name); ini.WriteInteger(’nums’,’num1’,num);end; 在你的窗口退出时onclose事件，把每个text的内容写入ini文件在你的窗口启动时onCreate事件或其他，读取，并给text赋值。