我作了一个简单的计算器大家过来帮一下 谢谢了 分单独给!不够再家 我再线等!!

[reallywell]

unit Unit1;

interface

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

type
Tcaculate = class(TForm)
edtOperand1: TEdit;
edtOperand2: TEdit;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
edtResult: TEdit;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
caculate: Tcaculate;

implementation
uses UnitMathStuff;

{$R *.dfm}

procedure Tcaculate.SpeedButton1Click(Sender: TObject);
begin
edtResult.Text:=FloatToStr(Calculate(StrToFloat(edtOperand1.Text),
StrToFloat(edtOperand2.Text),'+'));
end;

procedure Tcaculate.SpeedButton2Click(Sender: TObject);
begin
edtResult.Text:=FloatToStr(Calculate(StrToFloat(edtOperand1.Text),
StrToFloat(edtOperand2.Text),'-'));
end;

procedure Tcaculate.SpeedButton3Click(Sender: TObject);
begin
edtResult.Text:=FloatToStr(Calculate(StrToFloat(edtOperand1.Text),
StrToFloat(edtOperand2.Text),'*'));
end;

procedure Tcaculate.SpeedButton4Click(Sender: TObject);
begin
edtResult.Text:=FloatToStr(Calculate(StrToFloat(edtOperand1.Text),
StrToFloat(edtOperand2.Text),'/'));
end;

end.
unit unitMathStuff;
interface
type
function Calculate(op1,op2:double;operator:char):
double;
implementation
function Tcaculate.Calculate(op1,op2:double;opeerator:char):double;
begin
case operator of
'+':result:=op1+op2;
'-':result:=op1+op2;
'*':result:=op1+op2;
'/':result:=op1+op2;

end;
end;
end.

[Kshape]

我晕！
我Delphi出了问题
没法帮你编译了

[Kshape]

你应该把问题说清楚点
不然我们要给你找问题然后回复你呢

[boatzm]

啊，你做了一个计算器。有什么问题么？

[reallywell]

调不出来
应该是代码的问题 具体应该是函数写的不对帮我想一下

[lzy6204]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
edtOperand1: TEdit;
edtOperand2: TEdit;
edtResult: TEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
private
{ Private declarations }
function Calculate(op1,op2:double;operator:char):double;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.Calculate(op1,op2:double;operator:char):double;
begin
result := 0;
case operator of
'+':result:=op1+op2;
'-':result:=op1-op2;
'*':result:=op1*op2;
'/':result:=op1/op2;
end;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
edtResult.Text:=FloatToStr(Calculate(StrToFloat(edtOperand1.Text),
StrToFloat(edtOperand2.Text),'+'));
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
edtResult.Text:=FloatToStr(Calculate(StrToFloat(edtOperand1.Text),
StrToFloat(edtOperand2.Text),'-'));

end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
edtResult.Text:=FloatToStr(Calculate(StrToFloat(edtOperand1.Text),
StrToFloat(edtOperand2.Text),'*'));
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
edtResult.Text:=FloatToStr(Calculate(StrToFloat(edtOperand1.Text),
StrToFloat(edtOperand2.Text),'/'));
end;

end.

[lzy6204]

disappear?

[terrytzq]

up