Bug bei Auswertung: if (Zahl in [min..max]) then .. ??

[SearchBot]

Hallo,

ich habe gerade ein für mich unlogisches Problem (und ich kann nicht danach suchen, weil "in" und "if" zu kurz für die Suche sind).

Meine Situation im angehaltenen Programm:

Code:

xPos=527
yPos=98

xMin=238
xMax=709

yMin=26
yMax=551

Ich möchte, daß nur in einem Bereich eine Aktion erfolgt, also habe ich sie so eingeklammert:

Delphi-Quellcode:

if (xPos in [xMin..xMax]) and (yPos in [yMin..yMax]) then begin 
//Code
end;

Obwohl die obigen Werte xPos und yPos genau in diesen Bereich passen und somit beide Abfragen aus meiner Sicht true sind, wird der Code übersprungen.:gruebel:

Prüfe ich die Werte im angehaltenen Zustand in der IDE und zeige mit der Maus auf yMax, zeigt mir der Hint "yMin..yMax | 26" an, statt den yMax-Wert; auch die Auswerte-Funktion kommt mit dem "Zahl in [a..b]" nicht klar.

Ist das ein Bug?
Muss ich das immer umständlich ausführlich schreiben (if (posX>=xMin) and (posX<=xMax) and...)? Oder gibt's da eine Syntax, die korrekt funktioniert, wie ich es gehofft hatte? :pale:

[Jasocul]

"in" lässt in den Klammern nur 256 Werte zu.
Also 0..255 oder 100..355 etc.

[stahli]

Nutze InRange aus der Math-Unit...

[Blup]

System.Types.PtInRect()

[Michael II]

Nutze ptInRect. Damit kannst du checken, ob ein Punkt innerhalb eines Rechtecks liegt.

Beispiele:

Delphi-Quellcode:

  showmessage( ptInRect( Rect( 238,26,709,551 ), Point( 240,30 ) ).ToInteger.ToString );
  showmessage( ptInRect( Rect( 238,26,709,551 ), Point( 229,400 ) ).ToInteger.ToString );

[SearchBot]

Ah cool.

Zitat:

Zitat von Jasocul (Beitrag 1443671)

"in" lässt in den Klammern nur 256 Werte zu.
Also 0..255 oder 100..355 etc.

Das hab ich nicht gewusst. Dankeschön.

Zitat:

Zitat von stahli (Beitrag 1443672)

Nutze InRange aus der Math-Unit...

Oh, das ist gut - ich sollte mich mehr mit dieser Unit beschäftigen :thumb:

Zitat:

Zitat von Michael II (Beitrag 1443674)

Nutze ptInRect. Damit kannst du checken, ob ein Punkt innerhalb eines Rechtecks liegt.

Auch für diesen Tipp möchte ich mich bedanken.

Heute habe ich wieder was dazu gelernt :dp:

[p80286]

Und warum nicht

Delphi-Quellcode:

if (xpos>=xmin) and (xpos<=xmax) then .......

Gruß
K-H

[stifflersmom]

Zitat:

Zitat von p80286 (Beitrag 1443803)

Und warum nicht

Delphi-Quellcode:

if (xpos>=xmin) and (xpos<=xmax) then .......

Gruß
K-H

Wäre ja möglich, dass die Vergleichswerte trotzdem gewisse Auflagen erfüllen müssen. So darf vielleicht xmin nur 112 oder 204 oder 314... sein

[Dennis07]

Oder du verwendest die CustomSets library. Die unterstützt Sets von jedem numerischen ganzzahligen Typen und nicht nur Byte.