DBgrid calcular en campo

[ecfisa]

Empezado por CrazySoft

y no pe permite ingresar * o / en el DBGrid

Hola CrazySoft.

No me había percatado que podías ingresar caracteres como: *,/,+,-,^, etc. Entonces no creo que puedas hacerlo en un campo numérico, me parece que vas a tener que usar uno alfanumérico (ftString).

Algo como:

Código Delphi [-]
function CalcularExpresion(Expre: string): string;
begin
  ...
  Result := FloatToStr(CalcExpress1.calc(args));
end;


procedure TForm1.IBDataSetCampoGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  Text :=  CalcularExpresion(TField(Sender).AsString);
end;

Saludos.