Campo que contiene formula

[Aleca]

Empezado por oscarac

gracias Aleca
tendras un ejemplo?

la demo que esta ahi, le verdad no la entiendo bien

Código Delphi [-]
...
var
  args: Array of extended;
  cVariables: TStringList;
begin
  if DBEdtFormula.Field.IsNull then
    DBEdtCANT_AL_IN.Field.AsFloat := DBEdtCant_AL_RE.Field.AsFloat
  else
  begin
    CalcExpress1.Formula := DBEdtFormula.Field.AsString;
    cVariables := TStringList.Create;
    cVariables.Add('CA');
    CalcExpress1.Variables := cVariables;
    SetLength( args, 1);
    args[0] := DSceBases.DataSet.FieldByName('CANT_REMI').AsFloat;
    DSceBases.DataSet.FieldByName('CANT_ING').AsFloat :=    CalcExpress1.calc(args);
  end;

en el ej. lo usa para poder ingresar el remito del proveedor de materias primas que pueden entregar con dif. unidades de medida.
Por ej. la empresa lleva el stock en gramos y el proveedor entrega x Kg, la formula realiza la conversion, en este caso tengo una sola variable 'CA'. Una formula puede ser asi: CA * 1000.