Verhindern des Überschreitens des Maximalwertes von integer

[himitsu]

Tja, für vieles gibt es eben mehrere Wege, wobei´ich persönlich hierfür nicht gleich auf 'nen Try-Except-Block zurückgreifen würde.


Wenn deinen einzugebenden Werte nicht all zu sehr ins negative gehen, dann ginge auch folgendes:

Delphi-Quellcode:

Var i: Integer;

Begin
  i := StrToIntDef(Edit1.Text, Low(Integer));
  If i = Low(Integer) Then {Fehler...}
End;

Oder du wenn es dir egal ist, wenn der größtmögliche Intergerwert (2.147.483.647) nicht mehr vorhanden ist, dann verwende statt dem Low(Integer) das High(Integer) oder MaxInt ^^


möglicher Wertebereich bei verwendung von
MinInt: -2.147.483.647 .. 2.147.483.647
MaxInt: -2.147.483.648 .. 2.147.483.646


Da StrToIntDef aber intern auch nur das TryStrToInt verwendet, dann ist würde direkt damit der Wertebereich natürlich nicht um 1 verringert.
If not TryStrToInt(Edit1.Text, i) Then {Fehler...}