Parser Kommarechnung

[daywalker9]

Delphi-Quellcode:

 function _Eval(term: string; var i: Integer): Integer; 
  const 
    isNone = 0; 
    isNum = 1; 
    isOp = 2; 

  var 
    numStack: array[0..10] of Double; 
    number, code, sign, j, decimal: Double;
    Ops: string;
    sp : integer;
    c: Char;