Existe la funcion EVAL en Delphi

[rarratia]

Empezado por darkone2k3

Gracias roman por responder, voy a investigar lo que me dices.
Salu2 desde Chile.

Estimado, la función Eval para delphi es fácil, aquí va:

Código Delphi [-]
function Eval(const expression : string) : extended;
var
  pos : Integer;
  ch : char;
  function GetChar : char;
  begin
    if pos < Length (expression) then
    begin
      Inc (pos);
      ch := expression [pos]
    end
    else ch := #0;
    result := ch
  end;
  function GetNonWhitespace : char;
  begin
    repeat
      GetChar
    until not (ch in [' ', #9]);
    result := ch
  end;
  function CalcAddition : extended; forward;
  function CalcNumber : extended;
  var
    s : string;
    gotPoint : boolean;
  begin
    gotPoint := False;
    while ch in ['0'..'9'] do
    begin
      s := s + ch;
      if (GetChar = '.') and not gotPoint then
      begin
        s := s + ch;
        GetChar;
        gotPoint := True
      end
    end;
    result := StrToFloat (s)
  end;
  function CalcExpressionInBrackets : double;
  begin
    result := CalcAddition;
    if ch = ')' then
      GetChar
    else
      raise Exception.Create ('Missing '')'' in expression')
  end;
  function CalcTerm : extended;
  begin
    case ch of
      '0'..'9' : result := CalcNumber;
      '(' : result := CalcExpressionInBrackets;
      else raise Exception.Create ('Syntax error in expression')
    end
  end;
  function CalcSignedTerm : extended;
  begin
    case GetNonWhitespace of
      '+' : result := CalcSignedTerm;
      '-' : result := -CalcSignedTerm;
      else result := CalcTerm
    end
  end;
  function CalcPower : extended;
  begin
    result := CalcSignedTerm;
    while ch = '^' do
      result := exp (ln (result) * CalcSignedTerm)
  end;
  function CalcMultiplication : extended;
  begin
    result := CalcPower;
    while ch in ['*', '/'] do
      case ch of
        '*' : result := result * CalcPower;
        '/' : result := result / CalcPower
      end
  end;
  function CalcAddition : extended;
  begin
    result := CalcMultiplication;
    while ch in ['+', '-'] do
      case ch of
        '+' : result := result + CalcMultiplication;
        '-' : result := result - CalcMultiplication
      end
  end;
begin
  pos := 0;
  result := CalcAddition
end;

[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