Korrekt wäre es m.E. zum Beispiel so
Delphi-Quellcode:
FUNCTION MyIntersectRect(const A,B:TRect):Boolean;
begin
Result:=(A.Left<B.Right) and (A.Right>B.Left) and (A.Top<B.Bottom) and (A.Bottom>B.Top);
end;
Das kann nicht richtig sein. Wenn z.B.
(A.Left=B.Right) ist, schneiden sich die Rechtecke.
Bei Dir wird
false geliefert: Irgendwo müssen auch
<= bzw
>= im Vergleich auftauchen. Im Original wird das durch das
not erschlagen.