ParseFunction - .$DEFINE DEBUG} {$IFNDEF DEBUG} {$D-} {$L-} {$Q-} {$R-} {$S-} {$ENDIF} {$IFDEF Win32} {$LONGSTRINGS ON} {$S-} {$ENDIF} {$I+} { I/O checking is always on
error actually is superfluous as we are now using exceptions
procedure ParseFunction( FunctionString: string; { the unparsed string }
Variables: TStringlist; { list of variables }
{ lists of available functions }
FunctionOne, { functions with ONE argument, e.g. exp() }
FunctionTwo: TStringList; { functions with TWO arguments, e.g. max(,) }
UsePascalNumbers: boolean; { true: -> Val; false: StrToFloat }
{ return pointer to tree, number of performed operations and error state }
var FirstOP : POperation;
var Error : boolean);
.$DEFINE DEBUG} {$IFNDEF DEBUG} {$D-} {$L-} {$Q-} {$R-} {$S-} {$ENDIF} {$IFDEF Win32} {$LONGSTRINGS ON} {$S-} {$ENDIF} {$I+} { I/O checking is always on error actually is superfluous as we are now using exceptions