Formula creada por el usuario.

[NeoNew]

Ops. (siento regañado)
Pido disculpas

Tratare de explicar nuevamente.
Estoy en la etapa de análisis de como podre hacer lo que quiero.

Defino una pantalla para capturar una formula la cual tendrá un código, un nombre, unas variables o campos integer que van de 1 a 10 y un resultado.
En el resultado quiero poder hacer que el usuario final pueda definir que operaciones quiere y que campos para obtener dicho resultado.

-Captura de Formula-----------------------------------------------

Codigo Formula....[729501]
Nombre Formula.. [Promedio de visitas]

NombreCampo1... [Visitas realizadas] ...Valor [ 57]
NombreCampo2... [Visitas esperadas]... Valor [200]
NombreCampo3... [promedio ]............. Valor [100]
. .
. .
. .
NombreCampoN Valor


NombreFormula... [Promedio visitas ]
Formulacion........ [ (Visitas realizadas / Visitas esperadas)*promedio ]

Resultado [28.5]

----------------------------------------------------------------

Explico: Codigo de formula: Se Capturado
Nombre formula : Se Captura

NombreCampo1 : Se captura
Valor : Se captura y es el valor asociado al campo1.
NombreCampo2 : Se captura
Valor : Se captura y es el valor asociado al campo2.
NombreCampo3 : Se captura
Valor : Se captura y es el valor asociado al campo3.
NombreCampoN : Se captura
Valor : Se captura y es el valor asociado al campoN.

NombreFormula : Es una nombre que el usuario da a la formula.
Formulacion : Es donde el usuario da la formula escogiendo que campos quiere usar y que operaciones quiere realizar con ellos para obtener un resultado.

Resultado :Es el resultado que el sistema debe dar al aplicar la formula dada por el usuario.

Que quiero: Quiero saber como hacer referencia a los campos para que el usuario los escoja y pueda hacer su formula, lógicamente previa validación de los signos utilizados(validar los signos en codigo o colocando botones para cada signo en fin eso es otro tema)


Gracias y disculpas nuevamente.

[[Caral]]

Hola
No te preocupes, la verdad lo anterior fue broma, nada mas.
Disculpa pero me faltan datos o no entiendo.
Dices que los datos de los campos los capturas, en donde?.
Dices que el usuario escoje la formula, que significa, los campos o las operaciones matematicas?.
Dices que colocando botones, para las operaciones?.
Disculpa hoy estoy lento.
Saludos
PD: Que BD usas?

[[Caral]]

Hola
Voy a hacer un ejemplo sencillo.
Working...............
Saludos

[[Caral]]

Hola

Empezado por NeoNew

Que quiero: Quiero saber como hacer referencia a los campos para que el usuario los escoja y pueda hacer su formula, lógicamente previa validación de los signos utilizados(validar los signos en codigo o colocando botones para cada signo en fin eso es otro tema)

Segun lo que entiendo el primer código que puse servirá, el segundo no funciona.
Aqui tienes un ejemplo con BD Access.
Hay 5 combo, en tres de ellos se reciben los datos de la tabla, los otros dos son para indicar la operación matemática.
Espero te sirva de ejemplo.
Saludos

[yapt]

Yo también entiendo que lo que quiere es que el usuario pueda "modificar" una parte concreata del código Delphi.

Quiza es matar moscas a cañonazos, pero aqui tienes:

http://www.remobjects.com/ps.aspx

Con esto, puedes dejar que un usuario introduzca el código de una función y luego llamar a esa función desde dentro de tu propio código.

Bueno, creo que leyendo el texto del enlace te aclarará las cosas mucho más.

Saludos.

[[fjcg02]]

Puedes usar la unidad PREXPR.PAS, que está incluida en el programa de contabilidad que está publicado en el ftp del Club.

Una vez tienes la fórmula, la puedes enviar alas funciones que te devuelven el resultado

Te adjunto la forma de realizar las llamadas. Puedes observar que las formulas las obtengo de una variable y los valores también de la bbdd pasándole el nombre del campo, concretamente del registro activo.

En las jedi tienes un interprete de pascal incorporado, que además viene en los programas de ejemplo, pero nunca lo he utilizado. Puede ser una buena opción también. Lo que no recuerdo es cómo se llama el componente ni cómo se usa.

Espero que te sirva de ayuda.

Saludos

Código Delphi [-]
procedure TForm.CDSVistaReciboCalcFields(DataSet: TDataSet);
begin
  inherited;
  if  CDSVistaRecibo.FieldByName('COBRAPOLIZA').AsString = 'AGENTE' then
  begin
    DataSet.FieldByName('TOTCOMISION').AsFloat:= CalcularFormula(WFormulaComisionAgente);
    DataSet.FieldByName('TOTLIQUIDACION').AsFloat:= CalcularFormula(WFormulaLiquidacionAgente);
  end;
  if  CDSVistaRecibo.FieldByName('COBRAPOLIZA').AsString = 'COMPAÑIA' then
  begin
    DataSet.FieldByName('TOTCOMISION').AsFloat:= CalcularFormula(WFormulaComisionCIA);
    DataSet.FieldByName('TOTLIQUIDACION').AsFloat:= CalcularFormula(WFormulaLiquidacionCIA);
  end;
end;

function TForm.CalcularFormula(Formula:String): Double;
var
     E: TExpression;
begin
Result:= 0;
E:= CreateExpression(Formula, ValoresFunc);
if Assigned(E) then
  Result:= E.AsFloat;
end;

function TForm.ValoresFunc( const Identifier: String;
                              ParameterList: TParameterList): TExpression;
begin
    Result:= TFloatLiteral.Create(CDSVistaRecibo.fieldByName(Identifier).AsFloat);
end;

[NeoNew]

Gracia a todos voy aprobar y seguimos en contacto.