Existe la funcion EVAL en Delphi

[mamcx]

Otra manera es incluir python, javascript, lua u otro lenguaje de script.

Por ejemplo, con python:

http://www.atug.com/andypatterns/pythonDelphiTalk.htm

Lo he usado antes y funciona bien.

Con lua:

http://blog.spreendigital.de/2009/09...r-delphi-2010/

http://luapascal.luaforge.net/

[Casimiro Notevi]

Empezado por mamcx

Otra manera es incluir python, javascript, lua u otro lenguaje de script.
Por ejemplo, con python:
http://www.atug.com/andypatterns/pythonDelphiTalk.htm
Lo he usado antes y funciona bien.
Con lua:
http://blog.spreendigital.de/2009/09...r-delphi-2010/
http://luapascal.luaforge.net/

¿Y eso qué tiene que ver con delphi?

[dec]

Hola,

Empezado por Casimiro Notevi

¿Y eso qué tiene que ver con delphi?

Si lo que se quiere es evaluar expresiones, este tipo de "lenguajes de scripts" resultan útiles. El componente ArtFormula, por ejemplo, permite evaluar expresiones bastante complejas, además de proporcionar también cierto lenguaje de script similar a Pascal.

[Casimiro Notevi]

Sí, pero en el foro de club delphi, alguien pregunta por un eval en delphi, lo lógico no es contestar que use python, javascript, lua u otro lenguaje de script.

[dec]

Hola,

Empezado por Casimiro Notevi

Sí, pero en el foro de club delphi, alguien pregunta por un eval en delphi, lo lógico no es contestar que use python, javascript, lua u otro lenguaje de script.

Lo que pasa es que estos "lenguajes de script" suelen incluir un "evaluador de expresiones" puesto que ellos mismos necesitan de uno. Es el caso de ArtFormula, que, no sólo ofrece un lenguaje de script, pero, además un evaluador de expresiones que puede usarse por separado y que incluso se recomienda, puesto que es cinco veces más rápido que usarlo en conjunto con el lenguaje de script que incluye el propio ArtFormula. Yo creo que el compañero iba por ahí Casimiro: de hecho ArtFormula es un componente para Delphi escrito en el propio Delphi.

[mamcx]

Esas opciones son las mejores si se quiere tener un abanico mas completo de funcionalidad de scripting en la app, pero un evaluador matematico es suficiente si es algo muy simple.

A proposito, recorde que hay una opcion en pascal:

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

[[nlsgarcia]]

Club Delphi,

Otra opción para evaluar expresiones en Delphi

Revisen este código :

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, CalcExpress, Math;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Expr1: TEdit;
    Expr2: TEdit;
    Vars: TMemo;
    Values: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ResultExpr1: TLabel;
    ResultExpr2: TLabel;
    CalcExpress1: TCalcExpress;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   ResultExpr1.Caption := EmptyStr;
   ResultExpr2.Caption := EmptyStr;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

   if Expr1.Text <> EmptyStr then
   begin
      try
         CalcExpress1.Formula := Expr1.Text;
         ResultExpr1.Caption := 'Result: ' + FloatToStr(RoundTo(CalcExpress1.calc([]),-6));
      except
         ResultExpr1.Caption := EmptyStr;
      end;
   end;

end;

procedure TForm1.Button2Click(Sender: TObject);
var
   args : Array of Extended;
   i : Integer;

begin

   if (Vars.Lines.Count = Values.Lines.Count) and (Expr2.Text <> EmptyStr) then
   begin

      try

         CalcExpress1.Formula := Expr2.Text;

         CalcExpress1.Variables:= Vars.Lines;

         SetLength(args,Values.Lines.Count);

         for i := 0 to Values.Lines.Count - 1 do
            args[i] := StrToFloat(Values.Lines[i]);

         ResultExpr2.Caption := 'Result: ' + FloatToStr(RoundTo(CalcExpress1.calc(args),-6));

      except

         ResultExpr2.Caption := EmptyStr;

      end;

   end
   else
      MessageDlg('Error en Expresión, Variables o Valores',mtError,[mbOK],0);

end;

end.

El código anterior realiza una evaluación de expresiones por medio del componente TCalcExpress (Freeware), como se puede ver en la siguiente imagen:



Consulten este link:

CalcExpress : http://www.aidaim.com/products/free_...s/intr_spc.php

Espero sea útil

Nelson.