Parser - einfache Mathematische Formel

[Stevie]

Geht mit DelphiWebScript kinderleicht:

Delphi-Quellcode:

program MathExample;

{$APPTYPE CONSOLE}

uses
  dwsComp,
  dwsExprs;

var
  s: string;
  compiler: TDelphiWebScript;
  prog: IdwsProgram;
  exec: IdwsProgramExecution;
begin
  compiler := TDelphiWebScript.Create(nil);
  try
    repeat
      Readln(s);
      if s = '' then Exit;
      prog := compiler.Compile('Print(' + s + ')');
      if prog.Msgs.HasErrors then
        Writeln(prog.Msgs.AsInfo)
      else
      begin
        exec := prog.Execute;
        Writeln(exec.Result.ToString);
      end;
    until False;
  finally
    compiler.Free;
  end;
end.

LOL @LiveBindings Lösung...