Delphi编程中,有时我们需要在编译完后的可执行程序中执行四则运算,这是好多年前用过的,现把它整理出来供大家使用,算计形式如下图所示:

 

调用方法如下代码:

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