Max und Minimalwert einer Integervariable festlegen

[himitsu]

Was ist denn an sowas so schwer?
(hättest, das mit den Buttons, auch gleich sagen können )

Delphi-Quellcode:

Var Lautstaerke: Integer; // oder sowas in der Art ...

Prozedure ButtonPlusZehn(Sender: TObject);
  Begin
    Inc(Lautstaerke, 10);
    If Lautstaerke > 150 Then Lautstaerke := 150;
  End;

Prozedure ButtonMinusZehn(Sender: TObject);
  Begin
    Dec(Lautstaerke, 10);
    If Lautstaerke < 0 Then Lautstaerke := 0;
  End;

oder

Delphi-Quellcode:

Var Lautstaerke: Byte; // wenn's halt keine negativ gibt

Prozedure ButtonPlusZehn(Sender: TObject);
  Begin
    If Lautstaerke + 10 < 150 Then Inc(Lautstaerke, 10)
    Else Lautstaerke := 150;
  End;

Prozedure ButtonMinusZehn(Sender: TObject);
  Begin
    If Lautstaerke - 10 > 0 Then Dec(Lautstaerke, 10)
    Else Lautstaerke := 0;
  End;