ja das x und $ gehn hab ich grad auch gemerkt.
Da ich Garantieren kann das length(Value) >= 1 ist hab ichs nu so gelöst
Delphi-Quellcode:
p^.Typ := int;
Try
If Not (value[1]
In ['
0'..'
9'])
Then // <-- Verhindern das Hex zahlen Akzeptiert werden.
Raise exception.create('
');
p^.Value := strtoint(Value);
Except
SolverErrorString := SolverErrorString + #13#10'
Error "' + Value + '
" is not bool or int ( maybe "' + value + '
is a not declared variable).';
Raise;
End;
End;
ein Einfaches Raise darf man anscheindend nicht machen.
Aber so ganz schmecken tut mir diese Lösung natürlich nicht.