Question

delphi7 做简单计算器 只包括 加减乘除就好

哪位朋友发我一个用delphi7做的计算器。别只发代码，要整个程序源文件，能直接运行的，谢谢。 邮箱 360078401@qq.com

Answer 1

给分，发了。

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
GroupBox1: TGroupBox;
Edit2: TEdit;
Edit3: TEdit;
ComboBox1: TComboBox;
Button1: TButton;
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9',#8]) then key :=#0; //控制EDIT2.TEXT 里只能输入数字
end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9',#8]) then key :=#0; //控制EDIT3.TEXT 里只能输入数字
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Combobox1.ItemIndex := 0; //设置初始的计算字符为 +
end;

procedure TForm1.Button1Click(Sender: TObject);
var
k,m,a: double; //计算字符，这个使用来计算定义
begin
k:= strtofloat(edit2.text); //把EDIT2里面的内容转换为数组类型
M:= strtofloat(edit3.text); //把EDIT3里面的内容转换为数组类型
Case combobox1.ItemIndex of //判断是什么符号
0: begin //这里是+号
a:= k + m;
edit1.Text:= Floattostr(a); //这样转换为STRING 应为EDIT1.TEXT 只能支持STRING 所以要转换
end;
1: begin //这里是 -号
a:= k - m ;
edit1.Text:= Floattostr(a); //这样转换为STRING 应为EDIT1.TEXT 只能支持STRING 所以要转换
end;
2: begin //这里是 *号
a:= k * m ;
edit1.Text:= Floattostr(a); //这样转换为STRING 应为EDIT1.TEXT 只能支持STRING 所以要转换
end;
3: begin //这里是 /号
a:= k / m ;
edit1.Text:= Floattostr(a); //这样转换为STRING 应为EDIT1.TEXT 只能支持STRING 所以要转换
end;
end;
end;

end.