皮皮网

【android 酒店预订源码】【rc523 源码】【贷款超市源码html】delphi 计算器源码_delphi计算器源码

2024-11-25 02:41:23 来源：连接导航站源码 分类：综合

1.如何设计并实现一个整型算术计算器，计算i计高手指教下
2.用delphi写计算器
3.delphi怎样调用外部EXE文件
4.DELPHI中编号了一个计算器，器源未实现除数不能为零，算器小数点不重复，源码android 酒店预订源码键盘录入，计算i计连加连减问题。器源rc523 源码高手帮忙改改。算器

delphi 计算器源码_delphi计算器源码

如何设计并实现一个整型算术计算器，源码高手指教下

       delphi写的计算i计不知道对你有帮助么

       unit Unit1;

       interface

       uses

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

        Dialogs, StdCtrls;

       type

        TForm1 = class(TForm)

        Edit1: TEdit;

        Label1: TLabel;

        Button1: TButton;

        Button2: TButton;

        Button3: TButton;

        Button4: TButton;

        Button5: TButton;

        Button6: TButton;

        Button7: TButton;

        Button8: TButton;

        Button9: TButton;

        Button: TButton;

        Button: TButton;

        Button: TButton;

        Button: TButton;

        Button: TButton;

        Button: TButton;

        Button: TButton;

        procedure Button1Click(Sender: TObject);

        procedure Button2Click(Sender: TObject);

        procedure Button3Click(Sender: TObject);

        procedure Button5Click(Sender: TObject);

        procedure Button6Click(Sender: TObject);

        procedure Button7Click(Sender: TObject);

        procedure Button9Click(Sender: TObject);

        procedure ButtonClick(Sender: TObject);

        procedure ButtonClick(Sender: TObject);

        procedure ButtonClick(Sender: TObject);

        procedure Button4Click(Sender: TObject);

        procedure Button8Click(Sender: TObject);

        procedure ButtonClick(Sender: TObject);

        procedure ButtonClick(Sender: TObject);

        procedure ButtonClick(Sender: TObject);

        procedure ButtonClick(Sender: TObject);

        private

        { Private declarations }

        public

        { Public declarations }

        end;

       var

        Form1: TForm1;

        temp1:string;

        temp2:real;

        n:integer;

       implementation

       { $R *.dfm}

       procedure TForm1.Button1Click(Sender: TObject);

       begin

        Edit1.Text:=Edit1.Text+'1'; //在运算框输入数字'1'

       end;

       procedure TForm1.Button2Click(Sender: TObject);

       begin

        Edit1.Text:=Edit1.Text+'2'; //在运算框输入数字'2'

       end;

       procedure TForm1.Button3Click(Sender: TObject);

       begin

        Edit1.Text:=Edit1.Text+'3'; //在运算框输入数字'3'

       end;

       procedure TForm1.Button5Click(Sender: TObject);

       begin

        Edit1.Text:=Edit1.Text+'4'; //在运算框输入数字'4'

       end;

       procedure TForm1.Button6Click(Sender: TObject);

       begin

        Edit1.Text:=Edit1.Text+'5'; //在运算框输入数字'5'

       end;

       procedure TForm1.Button7Click(Sender: TObject);

       begin

        Edit1.Text:=Edit1.Text+'6'; //在运算框输入数字'6'

       end;

       procedure TForm1.Button9Click(Sender: TObject);

       begin

        Edit1.Text:=Edit1.Text+'7'; //在运算框输入数字'7'

       end;

       procedure TForm1.ButtonClick(Sender: TObject);

       begin

        Edit1.Text:=Edit1.Text+'8'; //在运算框输入数字'8'

       end;

       procedure TForm1.ButtonClick(Sender: TObject);

       begin

        Edit1.Text:=Edit1.Text+'9'; //在运算框输入数字'9'

       end;

       procedure TForm1.ButtonClick(Sender: TObject);

       begin

        Edit1.Text:=Edit1.Text+'0'; //在运算框输入数字'0'

       end;

       procedure TForm1.Button4Click(Sender: TObject);

       begin

        n:=1; //为加法运算设置标志变量

        temp1:=Edit1.Text; //为临时变量temp1赋值

        Edit1.Clear; //清空运算符

       end;

       procedure TForm1.Button8Click(Sender: TObject);

       begin

        n:=2; //为减法运算设置标志变量

        temp1:=Edit1.Text; //为临时变量temp1赋值

        Edit1.Clear; //清空运算符

       end;

       procedure TForm1.ButtonClick(Sender: TObject);

       begin

        n:=3; //为乘法运算设置标志变量

        temp1:=Edit1.Text; //为临时变量temp1赋值

        Edit1.Clear; //清空运算符

       end;

       procedure TForm1.ButtonClick(Sender: TObject);

       begin

        n:=4; //为除法运算设置标志变量

        temp1:=Edit1.Text; //为临时变量temp1赋值

        Edit1.Clear; //清空运算符

       end;

       procedure TForm1.ButtonClick(Sender: TObject);

       begin

        Edit1.Clear;

       end;

       procedure TForm1.ButtonClick(Sender: TObject);

       begin

        case n of

        1:temp2:=strtofloat(temp1)+strtofloat(Edit1.Text);

        2:temp2:=strtofloat(temp1)-strtofloat(Edit1.Text);

        3:temp2:=strtofloat(temp1)*strtofloat(Edit1.Text);

        4:if strtofloat(Edit1.Text)=0 then

        begin

        showmessage('除数不能为0!');

        exit;

        end

        else

        temp2:=strtofloat(temp1)/strtofloat(Edit1.Text);

        end;

        Edit1.Text:=floattostr(temp2);

       end;

       end.

用delphi写计算器

       è¿™æ˜¯æºä»£ç ï¼š

       unit Unit1;

       interface

       uses

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

       Dialogs, Buttons, StdCtrls, ExtCtrls;

       type

       TForm1 = class(TForm)

       Panel1: TPanel;

       Panel2: TPanel;

       SpeedButton7: TSpeedButton;

       SpeedButton8: TSpeedButton;

       SpeedButton9: TSpeedButton;

       SpeedButton: TSpeedButton;

       SpeedButton4: TSpeedButton;

       SpeedButton5: TSpeedButton;

       SpeedButton6: TSpeedButton;

       SpeedButton: TSpeedButton;

       SpeedButton1: TSpeedButton;

       SpeedButton2: TSpeedButton;

       SpeedButton3: TSpeedButton;

       SpeedButton: TSpeedButton;

       SpeedButton: TSpeedButton;

       SpeedButton: TSpeedButton;

       SpeedButton: TSpeedButton;

       StaticText1: TStaticText;

       SpeedButton0: TSpeedButton;

       SpeedButton: TSpeedButton;

       SpeedButton: TSpeedButton;

       GroupBox1: TGroupBox;

       procedure SpeedButton1Click(Sender: TObject);

       procedure FormCreate(Sender: TObject);

       procedure SpeedButtonClick(Sender: TObject);

       procedure SpeedButtonClick(Sender: TObject);

       procedure SpeedButtonClick(Sender: TObject);

       procedure SpeedButtonClick(Sender: TObject);

       private

       { Private declarations }

       public

       { Public declarations }

       end;

       var

       Form1: TForm1;

       restart: Boolean;

       isfirst: Boolean;

       fir_num,sec_num: String;

       sign: integer;

       result: real;

       save: String;

       implementation

       { $R *.dfm}

       function count(sign: integer):real;

       begin

       case sign of

       1: result:=strtofloat(fir_num)+strtofloat(sec_num); //为加号时

       2: result:=strtofloat(fir_num)-strtofloat(sec_num); //为减号时

       3: result:=strtofloat(fir_num)*strtofloat(sec_num); //为乘号时

       4: begin

       try

       result:=strtofloat(fir_num)/strtofloat(sec_num); //为除号时

       except

       ShowMessage('错误!');

       form1.close;

       end; //除数为0时,做出异常处理

       end;

       end;

       end;

       procedure TForm1.SpeedButton1Click(Sender: TObject);

       var

       i: integer;

       begin

       if restart then //如果是重新开始输入,则清除原来的操作数,并设置isfirst为True

       begin

       isfirst:=True;

       fir_num:='';

       sec_num:='';

       restart:=False;

       end;

       if isfirst then //如果是第一个操作数

       begin

       if (sender as TSpeedButton).Caption='.' then //如果输入的是小数点

       begin

       if (strlen(pChar(fir_num))<=0) then //如果第一个操作数并未输入

       fir_num:='0.'

       else

       for i:= 1 to strlen(pChar(fir_num)) do

       if fir_num[i]='.' then exit;

       //如果第一个中已含有小数点而又输入小数点,则退出

       end;

       if (strlen(pChar(fir_num))>0) and (fir_num[1]='0') then //如果最高位为0

       begin

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

       fir_num:='0.'

       else

       begin

       if strlen(pChar(fir_num))>1 then //如果是小数,则继续输入

       fir_num:=fir_num+(sender as TSpeedButton).Caption

       else

       fir_num:=(sender as TSpeedButton).Caption;

       //如果不是小数,则去掉最高位的0

       end;

       end

       else

       fir_num:=fir_num+(sender as TSpeedButton).Caption;

       StaticText1.Caption:=fir_num;

       end

       else

       begin

       if (sender as TSpeedButton).Caption='.' then //如果第二个操作数并未输入

       begin

       if (strlen(pChar(sec_num))<=0) then

       sec_num:='0.'

       else

       for i:= 1 to strlen(pChar(sec_num)) do

       if sec_num[i]='.' then exit;

       //如果第二个中已含有小数点而又输入小数点,则退出

       end;

       if (strlen(pChar(sec_num))>0) and (sec_num[1]='0') then //如果最高位为0

       begin

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

       sec_num:='0.'

       else

       begin

       if strlen(pChar(sec_num))>1 then //如果是小数,则继续输入

       sec_num:=sec_num+(sender as TSpeedButton).Caption

       else

       sec_num:=(sender as TSpeedButton).Caption;

       //如果不是小数,则去掉最高位的0

       end;

       end

       else

       sec_num:=sec_num+(sender as TSpeedButton).Caption;

       StaticText1.Caption:=sec_num;

       end;

       end;

       procedure TForm1.FormCreate(Sender: TObject);

       begin

       StaticText1.Caption:='0.'; //设置StaticText1初始显示为0.

       restart:=False;

       Isfirst:=True;

       fir_num:='';

       sec_num:='';

       end;

       procedure TForm1.SpeedButtonClick(Sender: TObject);

       begin

       if (fir_num<>'') and (sec_num<>'') then

       //如果两各操作数都不为空

       begin

       result:=count(sign); //调用函数,返回计算结果

       fir_num:=floattostr(result);

       sec_num:='';

       StaticText1.Caption:=floattostr(result);

       end;

       sign:=(sender as TSpeedButton).Tag;

       isfirst:=False;

       restart:=False;

       end;

       procedure TForm1.SpeedButtonClick(Sender: TObject);

       begin

       if (sec_num<>'') then

       //如果第二个操作数不为空则返回结果

       begin

       result:=count(sign);

       fir_num:='';

       fir_num:=fir_num+floattostr(result);

       StaticText1.Caption:=floattostr(result);

       sec_num:='';

       end;

       restart:=true;

       end;

       procedure TForm1.SpeedButtonClick(Sender: TObject);

       begin

       restart:=True;

       fir_num:='';

       sec_num:='';

       self.StaticText1.Caption:='0.';

       end;

       procedure TForm1.SpeedButtonClick(Sender: TObject);

       begin

       Close;

       end;

       end.

delphi怎样调用外部EXE文件

       delphi 调用外部 EXE 程序，可以使用以下办法：

       一、器源使用 WinExec 函数，算器示例代码：WinExec('calc.exe'，源码SW_NORMAL) //打开计算器二、计算i计贷款超市源码html使用 ShellExecute 函数，器源示例：ShellExecute(handle，算器'open'，jsp 页面 显示 源码'c:/myapp/myapp.exe'，'-s'，'，unity官方飞机源码SW_SHOWNORMAL)

DELPHI中编号了一个计算器，未实现除数不能为零，小数点不重复，键盘录入，连加连减问题。高手帮忙改改。

       //直接帮你写个计算器了吧。

       //3个edit ,一个label,一个combobox事件如下

       procedure TForm1.FormCreate(Sender: TObject);

       begin

        combobox1.Items.Add('+');

        combobox1.Items.Add('-');

        combobox1.Items.Add('*');

        combobox1.Items.Add('/');

        combobox1.ItemIndex :=0;

        label1.Caption := '=';

        edit1.Text := '0';

        edit2.Text := '0';

        edit3.Text := '0';

        button1.Caption := '计算';

       end;

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

       begin

        if not (key in ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', #8]) then

        key := char(0);

       end;

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

       begin

        if not (key in ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9', #8]) then

        key := char(0);

       end;

       procedure TForm1.Button1Click(Sender: TObject);

       begin

        case combobox1.ItemIndex of

        0 :

        begin

        if (edit1.Text<>'') and (edit2.Text<>'')then

        edit3.Text := floatTostr(StrTofloat(edit1.Text)+StrTofloat(edit2.Text));

        end;

        1 :

        begin

        if (edit1.Text<>'') and (edit2.Text<>'')then

        edit3.Text := floatTostr(StrTofloat(edit1.Text)-StrTofloat(edit2.Text));

        end;

        2 :

        begin

        if (edit1.Text<>'') and (edit2.Text<>'')then

        edit3.Text := floatTostr(StrTofloat(edit1.Text) *StrTofloat(edit2.Text));

        end;

        3 :

        begin

        if (edit1.Text<>'') and (edit2.Text<>'')and(edit2.Text<>'0')then

        edit3.Text := floatTostr(StrToint(edit1.Text) /StrTofloat(edit2.Text));

        end;

        end;

       end;

更多资讯请点击：综合

热门资讯

gitee源码学习

2024-11-25 02:302001人浏览

卡尔 jass源码_卡米尔 源代码

2024-11-25 02:272565人浏览

仿whatsapp源码_whatsapp模仿微信

2024-11-25 02:091062人浏览

vue music 源码

2024-11-25 01:591396人浏览

检索 网页源码_检索 网页源码是什么

2024-11-25 01:43271人浏览

地球币源码_地球币社区

2024-11-25 00:4098人浏览

推荐资讯

好友宝源码_好友宝源码平台

1.看了几年耽美看过的最神奇最有趣的文2.怎样推广自己的网店？看了几年耽美看过的最神奇最有趣的文 小说套路说白了差不多的，不过眼前一亮的感觉真的很舒爽啊 宝贝你什么时候发芽by一舟河原本是花店

仿youtube源码_仿youtube模板

1.离线怎么造句2.ROS开源项目：一）中文语音交互系统ROSECHO 二）教学级别无人车Tianracer3.什么播放器可以播放mkv格式？4.python在线网站(pythonç½

gobelieveio IM源码