=nospace(s); s0:=s; L:=length(s); if (s[1]<>''''('''') or (s[L]<>'''')'''') then s:=''''(''''+s+'''')''''; 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;
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
