viele fliegende sich abstoßende Bälle??

[FlorianK]

Ich würde es so machen:

Delphi-Quellcode:

procedure stoss;
var ball: array [1..30] of tball;

for a := 0 to High(BallArray)-2 do
begin
  for b := a+1 to High(BallArray)-1 do
  begin
    if ball[a].Left+ball[a].Width=ball[b].Left then // Wenn es in tball Left, Top, Width und Height gibt...
    begin
      //(...X-Abstoßung...)
    end;
    if ball[a].Top+ball[a].Height=ball[b].Top then // Wenn es in tball Left, Top, Width und Height gibt...
    begin
      //(...Y-Abstoßung...)
    end
  end;
end;

Florian K.