DELPHI - TEDIT COM EXPRESS�O MATEMATICA

Question

Como fa�o para calcular uma express�o matematica carregado num edit?Por exemplo:Tenho um Edit1.Text = 0+50*1-60-60*0+10Defino uma vari�vel s : integer;Quando tento carregar a var�vel s com o resul...

Lucas Riechelmann Ramos · Accepted Answer

Bom Dia Se for express�o simples assim, voc� ter� que ir quebrando a string exemplo: Valor Operador Valor Operador Valor, e fazer uma l�gica onde verifica quais deve ser calculados primeiro, no caso...

William · Answer

S� complementando a excelente resposta do colega Lucas em rela��o ao erro!Esses caracteres (*, -, +) s�o considerados strings, ent�o quando voc� usa a fun��o StrToInt() ela vai tentar converter n�meros dentro da string em inteiros, mas como mencionei os caracteres que voc� usa para opera��es matem�ticas s�o lidos como string por isso gera o erro. O ideal seria voc� quebrar em opera��es menores mesmo....

Clovis Perazza · Answer

Obrigado ao Lucas e ao William pela colabora��o.Valeu amigos....

Elison Faria · Answer

um pequeno ajuste, se for (10) - (-5) == 15 ent�o colocando o abs antes 10 - abs(-5) => 10 - 5 = 5
mas se vc n�o precisar desta regra, use sem o abs

function CalculaValor(pValor1: extended; pValor2: Extended; pOperador: string): Extended;
var
lRetorno: Extended;
begin
if(pOperador = '+') then
lRetorno := pValor1 + pValor2;

if(pOperador = '-') then
lRetorno := pValor1 - abs(pValor2); // se o valor for negativo vira positivo, o abs resolve este problema

if(pOperador = '*') then
lRetorno := pValor1 * pValor2;

if(pOperador = '/') then
lRetorno := pValor1 / pValor2;

result := lRetorno;
end;

Emerson Nascimento · Answer

utilize um expression parser. h� v�rios. segue um exemplo (gratuito e com fonte)://www.sparcs-center.org/expression-parser...