Prüfen ob sich Bereiche überlappen

**Zend**

Hallo,

angenommen ich habe 2 Bereiche:

Bereich1_min: 100
Bereich1_max: 1000

Bereich2_min: 26
Bereich2_max: 104

Wie kann ich prüfen ob sich diese überlappen? Ich möchte wissen ob Bereich 2 teilweise in Bereich 1 liegt oder nicht.

Zend

**Klaus01**

Hallo,

Bereich2_min >= Bereich1_min und Bereich2_min < Bereich1_max
Bereich2_max <= Bereich1_max

Grüße
Klaus

**Amateurprofi**

markieren

Delphi-Quellcode:

			FUNCTION Overlaps(min1,max1,min2,max2:integer):boolean;

begin

   result:=(max2>=min1) and (min2<=max1);

end;

**Bummi**

markieren

Delphi-Quellcode:

			Function OverLapping(x1,y1,x2,y2:Double):Boolean;

begin

  Result := ((x1>=X2) and (x1<=y2)) or ((x2>=X1) and (x2<=y1));

end;

**Zend**

Danke!

Habe die Variante von Bummi verwendet und es funktioniert ausgezeichnet!

Zend

Prüfen ob sich Bereiche überlappen

Prüfen ob sich Bereiche überlappen

AW: Prüfen ob sich Bereiche überlappen

AW: Prüfen ob sich Bereiche überlappen

AW: Prüfen ob sich Bereiche überlappen

AW: Prüfen ob sich Bereiche überlappen

Forumregeln

Zend Registriert seit: 5. Mär 2010 Ort: Braunschweig 17 Beiträge Delphi 7 Professional	#1 Prüfen ob sich Bereiche überlappen 4. Feb 2011, 16:23 Delphi-Version: 7 Hallo, angenommen ich habe 2 Bereiche: Bereich1_min: 100 Bereich1_max: 1000 Bereich2_min: 26 Bereich2_max: 104 Wie kann ich prüfen ob sich diese überlappen? Ich möchte wissen ob Bereich 2 teilweise in Bereich 1 liegt oder nicht. Zend
	Zitat

Klaus01 Online Registriert seit: 30. Nov 2005 Ort: München 5.755 Beiträge Delphi 10.4 Sydney	#2 AW: Prüfen ob sich Bereiche überlappen 4. Feb 2011, 16:32 Hallo, Bereich2_min >= Bereich1_min und Bereich2_min < Bereich1_max Bereich2_max <= Bereich1_max Grüße Klaus Klaus Geändert von Klaus01 ( 4. Feb 2011 um 16:51 Uhr)
	Zitat

Amateurprofi Registriert seit: 17. Nov 2005 Ort: Hamburg 1.041 Beiträge Delphi XE2 Professional	#3 AW: Prüfen ob sich Bereiche überlappen 4. Feb 2011, 22:02 markieren Delphi-Quellcode: FUNCTION Overlaps(min1,max1,min2,max2:integer):boolean; begin result:=(max2>=min1) and (min2<=max1); end; Gruß, Klaus Die Titanic wurde von Profis gebaut, die Arche Noah von einem Amateur. ... Und dieser Beitrag vom Amateurprofi....
	Zitat

Bummi Registriert seit: 15. Jun 2010 Ort: Augsburg Bayern Süddeutschland 3.470 Beiträge Delphi XE3 Enterprise	#4 AW: Prüfen ob sich Bereiche überlappen 4. Feb 2011, 23:53 markieren Delphi-Quellcode: Function OverLapping(x1,y1,x2,y2:Double):Boolean; begin Result := ((x1>=X2) and (x1<=y2)) or ((x2>=X1) and (x2<=y1)); end; Thomas Wassermann H₂♂ Das Problem steckt meistens zwischen den Ohren DRY DRY KISS H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
	Zitat

Zend Registriert seit: 5. Mär 2010 Ort: Braunschweig 17 Beiträge Delphi 7 Professional	#5 AW: Prüfen ob sich Bereiche überlappen 7. Feb 2011, 09:54 Danke! Habe die Variante von Bummi verwendet und es funktioniert ausgezeichnet! Zend
	Zitat