"In" abfrage für negative Zahlen??

[gizzy]

Hey,
ich muss wissen ob "x", "y" in einen bestimmten festgelegten bereich ist. Der fängt allerdings im Negativen an. In der Delphi Hilfe steht das diese Ordinale "in" ein set von 0 aufwärts braucht. Kann mir wer weiterhelfen?

Delphi-Quellcode:

If (x in [-30..250]) and (y in [-128..177]) then  ......

[Crazy Ivan]

addier doch den differenzbetrag dazu. bsp:

Delphi-Quellcode:

if (x + 30) in [0..280] then blub

um mal bei deinen werten zu bleiben, oder stellt das ein problem dar?

[Die Muhkuh]

In geht nicht für negative Zahlen, da ein Set ein Bereich eines Bytes (0..255) hat.

[gizzy]

Ok, danke. Wie kann ich dann überprüfen ob meine Zahl dazwischen liegt? Brauche ja im Prinzip wie "in" nur ein True oder False als rückgabe.

[Die Muhkuh]

Delphi-Quellcode:

if (((x > - 30) and (x < 250)) and ((y > -128) and (y < 177))) then

[gizzy]

Das wird nen Kuddel Muddel damit aber danke für den denkansatz :)

[Die Muhkuh]

Du kannst ja auch eine Funktion dafür schreiben (wenn es sowas nicht schon gibt?):

Delphi-Quellcode:

function InRange(const Value, aLower, aUpper: Integer): Boolean;
begin
  Result := ((Value > aLower) and (Value < aUpper));
end;

// 

if ((InRange(x, -30, 250)) and (InRange(y, -128, 177))) then

[Dax]

Dann aber bitte ohne die const-modifier und die überzähligen Klammern ;)

[Hawkeye219]

Hallo,

da war doch mal was... klick

Gruß Hawkeye

[Die Muhkuh]

Zitat:

Zitat von Dax

Dann aber bitte ohne die const-modifier und die überzähligen Klammern ;)

Warum ohne const? Spielt doch hier weniger eine Rolle?

Die Klammern: Tja, ein kleines Übel von mir, da ich jeden Ausdruck und die zusammengehörigen klammere *g*