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 :zwinker: )

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 ... :tongue:

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 :roll:

[add]
Ach ja ...

Zitat:

Zitat von shmia

Min und Max sind bei dir vertauscht!

sowas passiert beim selbermachen auch nicht so schnell :angel:

[shmia]

Zitat:

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:

Delphi-Quellcode:

   Copies := Max(StrToInt(Edtcopies.Text), 20);

Und schon rauschen immer 20 Kopien aus dem Drucker. :wall: :wall: :wall: