delphi 计算器源码
时间: 2023-12-12 22:01:00 浏览: 37
Delphi是一种面向对象的可视化编程语言,所以编写计算器源码可以轻松实现。下面我将给出一个简单的Delphi计算器源码示例:
```delphi
unit CalculatorForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TCalculatorForm = class(TForm)
Display: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button0: TButton;
ButtonAdd: TButton;
ButtonSubtract: TButton;
ButtonMultiply: TButton;
ButtonDivide: TButton;
ButtonCalculate: TButton;
procedure ButtonNumberClick(Sender: TObject);
procedure ButtonOperatorClick(Sender: TObject);
procedure ButtonCalculateClick(Sender: TObject);
private
{ Private declarations }
operatorPressed: Boolean;
calculation: String;
public
{ Public declarations }
end;
var
CalculatorForm: TCalculatorForm;
implementation
{$R *.dfm}
procedure TCalculatorForm.ButtonNumberClick(Sender: TObject);
begin
if operatorPressed then
begin
Display.Text := '';
operatorPressed := False;
end;
Display.Text := Display.Text + (Sender as TButton).Caption;
end;
procedure TCalculatorForm.ButtonOperatorClick(Sender: TObject);
begin
calculation := Display.Text + (Sender as TButton).Caption;
operatorPressed := True;
end;
procedure TCalculatorForm.ButtonCalculateClick(Sender: TObject);
begin
Display.Text := FloatToStr(Evaluate(calculation + Display.Text));
end;
function Evaluate(s: String): Double;
begin
Result := 0.0;
try
Result := StrToFloat(s);
except
Result := 0.0;
end;
end;
end.
```
这段代码实现了一个简单的计算器功能。用户可以点击按钮输入数字,点击运算符按钮实现基本的加减乘除操作,并且点击”=”按钮获取运算结果。在Delphi中,可以轻松通过处理按钮点击事件来实现这些功能。通过简单的表达式计算函数Evaluate,我们可以将字符串转换为数值并进行实际计算。这个计算器源码只是一个简单的示例,实际应用中可能需要更复杂的逻辑来处理各种操作和错误情况。希望这个例子能给您一些启发。