if (s[1]='(') and (s[l]=')') and((s[2]='-') or (isminus(s,l))) then
s:='('+s+')';
l:=length(s);
j:=firstj(s);
c:=firstc(s,j);
if (j<l) and (c>1) and (j>c) then
begin
substr:=copy(s,c+1,j-c-1);
file://le:=leftstr(s,c-1);
file://ri:= rightstr(s,l-j);
le:=leftstr(s,c-1);
le:=rightstr(le,length(le)-1);
ri:= rightstr(s,l-j);
ri:=leftstr(ri,length(ri)-1);
file://showmessage(substr);
al:=alltoone(substr);
file://showmessage(le+al+ri);
result:=myexpress(le+al+ri);
end
else
result:=alltoone(s0);
end;
procedure tform1.button1click(sender: tobject);
begin
edit2.text:=myexpress(edit1.text);
end;
end.
