Gracias ecfisa
hice lo que me dijiste pero aun tengo problemas, puse el valor de 2+2-1 y da error "2+2-1 no es valor de coma flotante ..."
y tampoco me permite ingresar / o * en el campo
el campo que estoy usando es de tipo real
hice la prueba con un campo de tipo texto y me funciono bien, pero mi problemas es que lo necesito que sea numerico
asi esta mi codigo, que podria hacer????
Código Delphi
[-]
Uses CalcExpress;
function TForm1.CalcularExpresion(Expre: string): Real;
var
CalcExpress1: TCalcExpress;
args: array[0..100] of extended;
begin
CalcExpress1 := TCalcExpress.Create(self);
CalcExpress1.Formula := Expre;
result := CalcExpress1.calc(args);
CalcExpress1.free;
end;
procedure TForm1.ADOTable1ValorGetText(Sender: TField; var Text: string;
DisplayText: Boolean);
begin
Text := floattostr(CalcularExpresion(TField(Sender).Value));
end;
Gracias