Nee, für die x1 nicht, das stimmt.
aber du lässt bewusst erst eine
Exception werfen, ums sie dann gleich wieder aufzufangen. Das kostet Zeit.
Delphi-Quellcode:
p^.Typ := int;
If Not (value[1]
In ['
0'..'
9'])
Then // <-- Verhindern das Hex zahlen Akzeptiert werden.
Raise exception.create('
...');
if not trystrtoint(Value,p^.Value)
then
Begin
SolverErrorString := SolverErrorString + #13#10'
Error "' + Value + ...;
Raise exception.create('
...');
End;