Formula creada por el usuario.

[[Caral]]

Hola
Empecemos algo generico:
Coloquemos los datos de los campos:

Código Delphi [-]
QTemp.SQL.Text := 'Select campo1 From BD';
   QTemp.Active := True;
   While not QTemp.Eof do
   begin
      Combobox1.Items.Add(QTemp.Fields[0].Text);
      QTemp.Next;
   end;
   QTemp.Active := False;
   QTemp.SQL.Text := 'Select campo2 From BD';
   QTemp.Active := True;
   While not QTemp.Eof do
   begin
      Combobox2.Items.Add(QTemp.Fields[0].Text);
      QTemp.Next;
   end;
   QTemp.Active := False;
   QTemp.SQL.Text := 'Select campo3 From BD';
   QTemp.Active := True;
   While not QTemp.Eof do
   begin
      Combobox3.Items.Add(QTemp.Fields[0].Text);
      QTemp.Next;
   end;
   QTemp.Active := False;

Bien, ahora que sigue?.
Saludos

[[Caral]]

Hola
Entremos los datos:

Código Delphi [-]
 Edit1.Text := FloatToStr(StrToFloat(ComboBox1.Text) * StrToFloat(ComboBox2.Text) / StrToFloat(ComboBox3.Text) * IntToStr(100) );

Ahora, esto en que evento se hará?.
Si me voy equivocando me dices....
Saludos

[[Caral]]

Hola
Tambien podemos hacer esto mas interesante colocando unos edit que nos definan la operacion:

Código Delphi [-]
Edit1.Text := FloatToStr(StrToFloat(ComboBox1.Text) +Edit2.Text+ StrToFloat(ComboBox2.Text)+
Edit3.Text+ StrToFloat(ComboBox3.Text) +Edit4.Text+ IntToStr(100) );

Con esto el usuario podra definir la operacion.
Como estoy aprendiendo.....
Saludos
PD: Me gustaria saber que es lo que tratamos de hacer

[[Chris]]

Según entiendo, lo que quiere es un método o forma de interpretar la formula introducida por el usuario. Hacer los cálculos respectivos y presentar el resultado. Lamentablemente, directamente desde Delphi no puedes interpretar o evaludar una formula matemática intruducida en tiempo de ejecución así por así. Pero como siempre, los componente de terceros vienen al rescate. Creo que los componente JEDI traen un interprete de formulas. Otro que conozco, es FastScript.

También existe la posibilidad de ejecutar la fomula intruducida directamente en el servidor de base de datos, si es que estás utilizando uno. La formula solo se ejecutaría en el registro activo o en el grupo de registros que corresponda al caso. Para aclarar lo anterior, te dejo el siguiente código:

Código Delphi [-]
var
    formula_del_usuario: String; // ((campo_1 * campo_2) * 0.20)
begin

    formula_del_usuario := TextInput.Text;
    
    // ejecutar en el servidor la formula intruducida por el usuario.
    ComponenteDeConexion.SQL := 'select (' + formula_del_usuario + ') as resultado_formula ' + 
                                'from TablaUno where TablaUno.RecordID = ' RegistroActivo;
    
    // ... ejecuar la consulta y presentar el resultado ..

Espero haberte ayudado.

Saludos,
Chris