Question

Delphi中如何利用一个edit控件实现双目运算

如用Delphi开发简易的计算器，实现数字的加减乘除运算，请写出加法运算的代码（如何保存第一个操作数，及如何获得第二个操作数）

Answer 1

//例: CalcByText('100+1000'), CalcByText('100-1000'), CalcByText('100*1000'), CalcByText('100/1000') function CalcByText(const StrExp: String): String;
var
aExp: pChar;
aOp,bOp: Integer;
i: Integer;
begin
aExp:=PChar(StrExp);
i:=1;
Result:='';
while aExp^<>#0 do
begin
if (aExp+1)^ in ['+','-','*','/'] then
begin
if i+1=Length(StrExp) then exit;
if not TryStrToInt(Copy(StrExp,1,i),aOp) then exit;
if not TryStrToInt(Copy(StrExp,i+2,Length(StrExp)-(i+2)+1),bOp) then exit;
case (aExp+1)^ of
'+': Result:=INTTOSTR(aOp+bOp);
'-': Result:=INTTOSTR(aOp-bOp);
'*': Result:=INTTOSTR(aOp*bOp);
'/': Result:=FLOATTOSTR(aOp/bOp);
end;
end;
inc(i);
inc(aExp);
end;
end;