Max und Minimalwert einer Integervariable festlegen

[exoduscrises]

Hallo zusammen, habe in der Suche nichts brauchbares gefunden und wollte jetzt fragen ob man eventuell einen Maximal- und Minimalwert für eine Integervariable festlegen kann.

mfg ´Stefan

[alcaeus]

Hallo,

ja, z.B. so:

Delphi-Quellcode:

type MyInt = 15..23;

Greetz
alcaeus

[himitsu]

Delphi-Quellcode:

Type TMaxMinInteger = -5..123;

Var xyz: TMaxMinInteger;

xyz ist jetzt eine Variable, wo alle Werte von -5 bit 123 reinpassen.

bei über-/unterschreitung meckert standardmäßig der Compiler (es wird nicht compiliert), oder das Programm (Error)...


[add]
mir wurde zwar der neue Beitrag angekündigt, aber wurde unten nicht angezeigt?

[IngoD7]

Zitat:

Zitat von himitsu

bei über-/unterschreitung meckert standardmäßig der Compiler (es wird nicht compiliert), oder das Programm (Error)...

Hmmm ... :gruebel:

Delphi-Quellcode:

Type TMaxMinInteger = -5..123;

Var xyz: TMaxMinInteger;
    abc: integer;

begin
  abc := 250;
  xyz := abc;  // <-- Compiler meckert nicht, Programm meckert auch nicht
end;

[ste_ett]

Lass dir mal xyz ausgeben. :)

inttostr(xyz)

[Binärbaum]

Zitat:

Zitat von IngoD7

Zitat:

Zitat von himitsu

bei über-/unterschreitung meckert standardmäßig der Compiler (es wird nicht compiliert), oder das Programm (Error)...

Hmmm ... :gruebel:

Delphi-Quellcode:

Type TMaxMinInteger = -5..123;

Var xyz: TMaxMinInteger;
    abc: integer;

begin
  abc := 250;
  xyz := abc;  // <-- Compiler meckert nicht, Programm meckert auch nicht
end;

Das liegt evtl. daran, dass in den Optionen die Bereichsprüfung abgeschaltet wurde.

MfG
Binärbaum

[IngoD7]

Zitat:

Zitat von ste_ett

Lass dir mal xyz ausgeben. :)
inttostr(xyz)

Ergab bei mir fehlerfrei den String '250'.

Aber ...

Zitat:

Zitat von Binärbaum

Das liegt evtl. daran, dass in den Optionen die Bereichsprüfung abgeschaltet wurde.

Das war's. Wobei das Einschalten alleine nicht reicht, das hatte ich probiert. Das Projekt muss danach einmal erzeugt werden, damit der Progammlauf (gestartet aus der IDE) auch auf Fehler läuft.

Ist nicht das erste mal, dass ich darauf hereinfalle ... :freak:

[exoduscrises]

Vielen Dank erstmal, funktioniert wunderbar bei mir wenn ich mir die variable nochmal in einer anderen ausgeben lasse, jetzt kann ich endlich keine Lautstärke 62763 mehr erreichen :) ...

mfg Stefan

[Oxmyx]

Zitat:

Zitat von exoduscrises

Vielen Dank erstmal, funktioniert wunderbar bei mir wenn ich mir die variable nochmal in einer anderen ausgeben lasse, jetzt kann ich endlich keine Lautstärke 62763 mehr erreichen :) ...

mfg Stefan

Wenn der Benutzer die Lautstärke eingibt, dann würde ich eher eine Abfrage nehmen, ob die Zahl im erlaubten Bereich liegt.

[exoduscrises]

der Benutzer drückt auf einen Button bei dem die Lautstärke um "-10" erhöht wird , also gibt sie ja nicht direkt ein.

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