delphi中memo的一个小问题（高分！）
在delphi中拖入两个组件，分别是memo1和memo2，我想实现这个功能，在memo1中输入下面引号中的内容（不包含引号和逗号）“A+B=”，然后memo2就会显示该...
在delphi中拖入两个组件，分别是memo1和memo2，我想实现这个功能，在memo1中输入下面引号中的内容（不包含引号和逗号）“A+B=”，然后memo2就会显示该内容数学算法的结果。上面的A和B可以换成任意数字。比如一个例子：在memo1中输入1+2=，在memo2中就会自动显示3。该功能的实现语句麻烦请写在一个按钮控件button1中。谢谢！好的会追加分数！在线等！
展开
3个回答
展开全部
这有个现成的函数，使用方法在button1中你一看就知道就不多说了，可以输入比如(1+2)*(4-6)这种公式或者更复杂的也行
procedure Eval(Formula: string; { 要计算的表达式 }
var Value: Real; { 返回数值 }
var ErrPos: Integer); { 错误信息 }
const
Digit: set of Char = ['0'..'9'];
var
Posn: Integer; { 算式当前位置 }
CurrChar: Char; { 算式当前字符 }
procedure ParseNext;
begin
repeat
Posn := Posn + 1;
if Posn <= Length(Formula) then
CurrChar := Formula[Posn]
else
CurrChar := ^M;
until CurrChar <> ' ';
end { ParseNext };
function add_subt: Real;
var
E: Real;
Opr: Char;
function mult_DIV: Real;
var
S: Real;
Opr: Char;
function Power: Real;
var
T: Real;
function SignedOp: Real;
function UnsignedOp: Real;
type
StdFunc = (fabs, fsqrt, fsqr, fsin, fcos,
farctan, fln, flog, fexp, ffact);
StdFuncList = array[StdFunc] of string[6];
const
StdFuncName: StdFuncList =
('ABS', 'SQRT', 'SQR', 'SIN', 'COS',
'ARCTAN', 'LN', 'LOG', 'EXP', 'FACT');
var
E, L, Start: Integer;
Funnet: Boolean;
F: Real;
Sf: StdFunc;
function Fact(I: Integer): Real;
begin
if I > 0 then
begin
Fact := I * Fact(I - 1);
end
else
Fact := 1;
end { Fact };
begin
if CurrChar in Digit then
begin
Start := Posn;
repeat ParseNext until not (CurrChar in Digit);
if CurrChar = '.' then
repeat ParseNext until not (CurrChar in Digit);
if CurrChar = 'E' then
begin
ParseNext;
repeat ParseNext until not (CurrChar in Digit);
end;
Val(Copy(Formula, Start, Posn - Start), F, ErrPos);
end
else if CurrChar = '(' then
begin
ParseNext;
F := add_subt;
if CurrChar = ')' then
ParseNext
else
ErrPos := Posn;
end
else
begin
Funnet := False;
for sf := fabs to ffact do
if not Funnet then
begin
l := Length(StdFuncName[sf]);
if Copy(Formula, Posn, l) = StdFuncName[sf] then
begin
Posn := Posn + l - 1;
ParseNext;
f := UnsignedOp;
case sf of
fabs: f := abs(f);
fsqrt: f := SqrT(f);
fsqr: f := Sqr(f);
fsin: f := Sin(f);
fcos: f := Cos(f);
farctan: f := ArcTan(f);
fln: f := LN(f);
flog: f := LN(f) / LN(10);
fexp: f := EXP(f);
ffact: f := fact(Trunc(f));
end;
Funnet := True;
end;
end;
if not Funnet then
begin
ErrPos := Posn;
f := 0;
end;
end;
UnsignedOp := F;
end { UnsignedOp};
begin { SignedOp }
if CurrChar = '-' then
begin
ParseNext;
SignedOp := -UnsignedOp;
end
else
SignedOp := UnsignedOp;
end { SignedOp };
begin { Power }
T := SignedOp;
while CurrChar = '^' do
begin
ParseNext;
if t <> 0 then
t := EXP(LN(abs(t)) * SignedOp)
else
t := 0;
end;
Power := t;
end { Power };
begin
s := Power;
while CurrChar in ['*', '/'] do
begin
Opr := CurrChar;
ParseNext;
case Opr of
'*': s := s * Power;
'/': s := s / Power;
end;
end;
mult_DIV := s;
end;
begin
E := mult_DIV;
while CurrChar in ['+', '-'] do
begin
Opr := CurrChar;
ParseNext;
case Opr of
'+': e := e + mult_DIV;
'-': e := e - mult_DIV;
end;
end;
add_subt := E;
end;
begin
if Formula[1] = '.' then
Formula := '0' + Formula;
if Formula[1] = '+' then
Delete(Formula, 1, 1);
for Posn := 1 to Length(Formula) do
Formula[Posn] := Upcase(Formula[Posn]);
Posn := 0;
ParseNext;
Value := add_subt;
if CurrChar = ^M then
ErrPos := 0
else
ErrPos := Posn;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
value:real;
errno:integer;
begin
str:=memo1.Text;
eval(str,value,errno);
//showmessage(floattostr(value));
memo2.Text:=floattostr(value);
end;
追问
1、这个第一行是不是少了什么？比如括号之类？
2、然后，我具体应该怎么调用你写的这个呢？
如果解释清楚我会采纳你，谢谢！
追答
1、这就是完整的一个过程，没少东西。
2、调用方法其实已经已经写的很清楚了，我假定界面上就两个memo，一个button，双击button的时候事件就是
procedureTForm1.Button1Click(Sender: TObject);
var
str:string;
value:real;
errno:integer;
begin
str:=memo1.Text;
eval(str,value,errno);//这里就是调用上面那个过程
//showmessage(floattostr(value));
memo2.Text:=floattostr(value);
end;
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
金山毒霸
2024-10-31 广告
大部分系统错误，是因为某些DLL文件丢失造成的，比如未安装DirectX9或DirectX 9.0组件已损坏、缺少Visual C ++库、未安装.net库。解决方法如下：一、 手动解决方法1、先确定电脑操作系统是多少位的，现在的电脑一般都...
点击进入详情页
本回答由金山毒霸提供
展开全部
procedure TForm1.btn1Click(Sender: TObject);
var
strtemp,strA,strB,strresult : string;
itemp,tempresult : integer;
begin
for itemp :=0 to mmo1.Lines.Count-1 do
begin
strtemp :=StringReplace(mmo1.Lines.Strings[itemp],' ','',[rfReplaceAll]);
strA := Copy(strtemp,1,Pos('+',strtemp)-1);
strB := Copy(strtemp,Pos('+',strtemp)+1,Pos('=',strtemp)-Pos('+',strtemp)-1);
tempresult := StrToInt(strA)+ StrToInt(strB);
strresult := IntToStr(tempresult);
mmo2.Lines.Add(strresult);
end;
end;
var
strtemp,strA,strB,strresult : string;
itemp,tempresult : integer;
begin
for itemp :=0 to mmo1.Lines.Count-1 do
begin
strtemp :=StringReplace(mmo1.Lines.Strings[itemp],' ','',[rfReplaceAll]);
strA := Copy(strtemp,1,Pos('+',strtemp)-1);
strB := Copy(strtemp,Pos('+',strtemp)+1,Pos('=',strtemp)-Pos('+',strtemp)-1);
tempresult := StrToInt(strA)+ StrToInt(strB);
strresult := IntToStr(tempresult);
mmo2.Lines.Add(strresult);
end;
end;
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
用两个TEDIT不成吗，用memo1还得把符号抠出来在计算，不过也简单
追问
谢谢，不过edit只要是个初学者就会的好吧。。。
我之所以用memo，因为我要写好多行类似A+B=的格式，然后在memo2里面显示结果，这个edit就办不到了
追答
我想的简单了
哇噢，楼上syht2000曾经也为这问题烦恼过吧，竟然整理出这么完善的一段代码
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
