Verhindern des Überschreitens des Maximalwertes von integer

[derArmin]

ui das is auch gut. Allerdings muss ich erstmal kucken wie man sowas macht...

[SirThornberry]

So gehts (da fehlt noch der Test ob es ein "-" ist und ob nur Zahlen verwendet werden, es wird also derzeit vorrausgesetzt das die Zahl größer 0 ist und nur zahlen verwendet werden)

Delphi-Quellcode:

  function LIsItBigger(ACheckVal, AMaxVal: String): Boolean;
  var LCheckVal, LMaxVal: Byte;
  begin
    if Length(ACheckVal) > Length(AMaxVal) then
      result := True
    else if Length(ACheckVal) < Length(AMaxVal) then
      result := False
    else begin
      LCheckVal := StrToInt(ACheckVal[1]);
      LMaxVal := StrToInt(AMaxVal[1]);
      result := (LCheckVal > LMaxVal) or
                (Length(ACheckVal) > 1) and (LCheckVal = LMaxVal) and
                 LIsItBigger(copy(ACheckVal, 2, Length(ACheckVal)), copy(AMaxVal, 2, Length(AMaxVal)));
    end;

  end;
var LMaxWert: String;
begin
  LMaxWert := '2147483647';
  Caption := BoolToStr(LIsItBigger(Edit1.Text, LMaxWert), True);