Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Prüfen ob sich Bereiche überlappen (https://www.delphipraxis.net/158083-pruefen-ob-sich-bereiche-ueberlappen.html)

Zend 4. Feb 2011 16:23

Delphi-Version: 7

Prüfen ob sich Bereiche überlappen
 
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 4. Feb 2011 16:32

AW: Prüfen ob sich Bereiche überlappen
 
Hallo,

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

Grüße
Klaus

Amateurprofi 4. Feb 2011 22:02

AW: Prüfen ob sich Bereiche überlappen
 
Delphi-Quellcode:
FUNCTION Overlaps(min1,max1,min2,max2:integer):boolean;
begin
   result:=(max2>=min1) and (min2<=max1);
end;

Bummi 4. Feb 2011 23:53

AW: Prüfen ob sich Bereiche überlappen
 
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 7. Feb 2011 09:54

AW: Prüfen ob sich Bereiche überlappen
 
Danke!

Habe die Variante von Bummi verwendet und es funktioniert ausgezeichnet!

Zend


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:53 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz