Hi,
nur mal so als grundlegenden Ansatz:
So ist die Vergleichsfunktion in eine Funktion verpackt, die man dann immer wieder verwenden kann.
Später werden alle Objekte miteinander geprüft oder ein spezielles gegen alle anderen.
Der Code ist natürlich nur symbolisch.
Aber hilft Dir das etwas weiter?
Delphi-Quellcode:
function IntersectObject(O1, O2: TObjectIregendwas): Boolean;
begin
Result := ... True or False ...;
end;
...
for I := 0 to Objects.Count - 2 do
begin
iO := Objects[I];
for J := Succ(I) to Objects.Count - 1 do
begin
jO := Objects[J];
if IntersectObject(iO, jO) then
Beep;
end;
end;
TestO := Objects[Irgendeins];
for I := 0 to Objects.Count - 1 do
begin
iO := Objects[I];
if (TestO <> iO) then
begin
if IntersectObject(TestO, iO) then
Beep;
end;
end;