delphi编写计算器源代码（delphi开发工具）

本篇文章给大家谈谈delphi编写计算器源代码，以及delphi开发工具对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、delphi 计算器代码
• 2、我有计算器的delphi源代码，怎么用才能做成计算器?
• 3、用Delphi 7做简单计算器
• 4、求:用delphi编写一个计算器!~
• 5、如何用Delphi制作一个加法计算器

delphi 计算器代码

//函数

function ExpCalc(exp: string): string;

var

vScript: Variant;

begin

vScript := CreateOleObject('ScriptControl');

vScript.Language := 'VBScript';

Result := vScript.Eval(exp);

end;

//调用例子

procedure TForm1.Button1Click(Sender: TObject);

var

s:string;

begin

s:=ExpCalc('100 *4.17/0.5*(55.22+22)/3.14');

ShowMessage(s);

end;

我有计算器的delphi源代码，怎么用才能做成计算器?

安装一个delphi，再用delphi打开你的源代码工程，编译后将可执行文件拿出来就是你要的计算器应用程序了。

用Delphi 7做简单计算器

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ExtCtrls;

type

TForm1 = class(TForm)

Panel1: TPanel;

SpeedButton1: TSpeedButton;

SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton;

SpeedButton4: TSpeedButton;

SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton;

SpeedButton7: TSpeedButton;

SpeedButton8: TSpeedButton;

SpeedButton9: TSpeedButton;

SpeedButton10: TSpeedButton;

SpeedButton11: TSpeedButton;

SpeedButton12: TSpeedButton;

SpeedButton13: TSpeedButton;

SpeedButton14: TSpeedButton;

SpeedButton15: TSpeedButton;

SpeedButton16: TSpeedButton;

Edit1: TEdit;

SpeedButton17: TSpeedButton;

procedure SpeedButton1Click(Sender: TObject);

procedure SpeedButton12Click(Sender: TObject);

procedure SpeedButton13Click(Sender: TObject);

procedure SpeedButton17Click(Sender: TObject);

procedure FormKeyPress(Sender: TObject; var Key: Char);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

var

Flag: Boolean = True; //。标记位

Flag1: Integer = 1; //计算方法标志位

num1, num2, result: Real;

flagresult: Boolean = False;

procedure TForm1.SpeedButton1Click(Sender: TObject);

var

str: string;

begin

str := Edit1.Text;

if (Length(str) = 1) and (str = '0') then

Edit1.Clear;

Edit1.Color := clBlue;

if ((Sender as TSpeedButton).Caption = '.') then

begin

if Flag then

begin

Edit1.Text := Edit1.Text + (sender as TSpeedButton).Caption;

Flag := False;

end

end

else

Edit1.Text := Edit1.Text + (sender as TSpeedButton).Caption;

end;

procedure TForm1.SpeedButton12Click(Sender: TObject);

begin

Edit1.Color := clRed;

num2 := StrToFloatDef(Edit1.Text, 0.00);

case Flag1 of

1: result := num1 + num2;

2: result := num1 - num2;

3: result := num1 * num2;

4: if num2 = 0 then

begin

MessageBox(0, '除数为0', '', 0);

result := 0;

end

else

result := num1 / num2;

end;

Edit1.Text := FloatToStr(result);

end;

procedure TForm1.SpeedButton13Click(Sender: TObject);

begin

Flag1 := (Sender as TSpeedButton).Tag;

num1 := StrToFloatDef(Edit1.Text, 0.00);

Edit1.Text := '0';

end;

procedure TForm1.SpeedButton17Click(Sender: TObject);

begin

Flag := True; //。标记位

Flag1 := 1; //计算方法标志位

num1 := 0;

num2 := 0;

result := 0;

Edit1.Text := '0';

end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);

begin

case key of

'1': SpeedButton1.Click;

'2': SpeedButton2.Click;

'3': SpeedButton3.Click;

'4': SpeedButton4.Click;

'5': SpeedButton5.Click;

'6': SpeedButton6.Click;

'7': SpeedButton7.Click;

'8': SpeedButton8.Click;

'9': SpeedButton9.Click;

'0': SpeedButton10.Click;

'.': SpeedButton11.Click;

'+': SpeedButton13.Click;

'-': SpeedButton14.Click;

'*': SpeedButton15.Click;

'/': SpeedButton16.Click;

end;

end;

end.

求:用delphi编写一个计算器!~

so easy

我只写思路

(0-9 . 10个键, 一个eidt1.text 做显示屏, + - * / = 归零 6个功能键)

var

n:integer //四则运算

s1:string;

+; s1:=edit1.text a:=1 edit1.clear;//把+号前面字符串存入s1

-: s1:=edit1.text a:=2 edit1.clear;

*: s1:=edit1.text a:=3 edit1.clear;

/: s1:=edit1.text a:=4 edit1.clear;

归零：edit1.clear; //不显示 也可以显示0 不过0-9 要多了一个if

0-9: edit1.text=edit1.text+(0-9) //

.: if edit1.text=''then edit1.text='0.' else edit1.text=edit1.text+'.';

// 前面的是按钮 懒的写全 带冒号的全是按钮点击事件 后面是=号的代码

begin

case n of

1: edit1.text:=inttostr(strtoint(s1)+strtoint(edit1.text));

2: edit1.text:=inttostr(strtoint(s1)-strtoint(edit1.text));

3: edit1.text:=inttostr(strtoint(s1)*strtoint(edit1.text));

4: begin

if edit1.text=0 then showmessage('不能被整除')

else edit1.text:=inttostr(strtoint(s1)/strtoint(edit1.text));

end;

end;

end;

如何用Delphi制作一个加法计算器

如果只是个位数的加法的话，思路可以这样：

先定义一个全局状态变量，比如bFi，并置为真，然后分别给123三个按钮添加代码为：

如果bFi为真，框1出现对应按钮的数字，否则框2出现。

给“+”按钮添加代码为：置bFi为假。

给“=”按钮添加代码为：

框3 = 框1.值 + 框2.值;

bFi置为真。

如果是多位数的加法，比如213+132=？，就要在123按钮的代码中使用字符串处理来将按钮的数据添加在对应框内容的末尾，其他一样处理。

delphi编写计算器源代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于delphi开发工具、delphi编写计算器源代码的信息别忘了在本站进行查找喔。