|
Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Prüfen ob sich Bereiche überlappen
5. Feb 2011, 00:53
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)
|