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;

[alcaeus]

Da halte ich dagegen:

Delphi-Quellcode:

Lautstaerke := Min(Lautstaerke-10, 0);
Lautstaerke := Max(Lautstaerke+10, 150);

Noch einfach gehts nicht

Greetz
alcaeus

[himitsu]

hmmm, warum verwende ich Min und Max nur nie ... ach ja, die sind mir zu einfach und außerdem ist mein Code schneller und kleiner und ...

Und dann ist das doch ein Gutes Beispiel für Was will ich und wie setze ich meinen Willen in die Tat (den Code) um

[add]
Ach ja ...

Zitat von shmia:

Min und Max sind bei dir vertauscht!

sowas passiert beim selbermachen auch nicht so schnell

[shmia]

Zitat von alcaeus:

Da halte ich dagegen:

Delphi-Quellcode:

Lautstaerke := Min(Lautstaerke-10, 0);
Lautstaerke := Max(Lautstaerke+10, 150);

Ha!!!
Min und Max sind bei dir vertauscht!

Das ist mir auch schon passiert:
   Copies := Max(StrToInt(Edtcopies.Text), 20); Und schon rauschen immer 20 Kopien aus dem Drucker.