"Kollidieren" von drei Objekten verhindern

[stahli]

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;