Delphi編程中，如何在可執行程序中執行四則運算

Delphi編程中，有時我們需要在編譯完後的可執行程序中執行四則運算，這是好多年前用過的，現把它整理出來供大家使用，算計形式如下圖所示：

調用方法如下代碼：

[delphi]
procedure TForm1.Button1Click(Sender: TObject); 
var 
  c:TCalcer; 
begin 
  c := TCalcer.Create; 
  Edit2.Text := c.Calc(Edit1.Text); 
  c.Free; 
end;