Problem mit For-Schliefe

[sx2008]

Du könntest schon Einiges an Klarheit schaffen, wenn du Unterfunktionen benützen würdest.
Bei 3 Objekten braucht man noch nicht unbedingt eine Schleife, aber bei 3 maliger Wiederholung von gleichem Code braucht man Funtkionen!
Das hier: sqrt(sqr(abs(maus.x - hindernis.hx)) + sqr(abs(maus.y - hindernis.hy)) ist doch nix anderes als die abgewandelte Formel von Phytagoras.

Delphi-Quellcode:

function Abstand(x,y:Integer):Double;
begin
  result := sqrt(sqr(x)+sqr(y));
end;

Der Aufruf von abs() ist übrigens völlig überflüssig.
Und schon sieht der Code besser aus:

Delphi-Quellcode:

repeat
    hindernis1.initiate(clblue, random(image1.width - 20) + 10,random(image1.height- 20) + 10, random(40) + 81);
  until (Abstand(maus.x - hindernis1.hx, maus.y - hindernis1.hy) > (maus.r + hindernis1.hr) + 8));

Jetzt müsste man noch den Ausdruck nach Until vereinfachen.
Dazu ist es wichtig, dass maus und hindernis von der gleichen Kreisklasse abgeleitet sind.
Dann könnte man nämlich den Abstand der Kreisobjekte in einer Funtkion berechnen:

Delphi-Quellcode:

function TKreis.KreisrandAbstand(v:TKreis):double;
begin
  result := Abstand(x - v.x, y - v.y) - (r + v.r);
end;

Delphi-Quellcode:

repeat
    hindernis1.initiate(clblue, random(image1.width - 20) + 10,random(image1.height- 20) + 10, random(40) + 81);
  until maus.KreisrandAbstand(hindernis1) >  8;

[mkinzler]

Besser einen Array verwenden

Delphi-Quellcode:

var
Hindernis: Array[1..3] of tHindernis; // 'Hindernis' hab ich dazu geschrieben, war vorher nich drin
...
initialization
  Hindernis[1] := thindernis.create;
  Hindernis[2] := thindernis.create;
  Hindernis[3] := thindernis.create;

[Blup]

Als einfachste Lösung kann man eine Unterfunktion bilden und die Variable(n) übergeben:

Delphi-Quellcode:

procedure TSpielfeld1.InitiateHindernis(AHindernis: THindernis);
begin
  repeat
    AHindernis.initiate(clblue, random(image1.width - 20) + 10, random(image1.height - 20) + 10, random(40) + 81);
  until ((sqrt(sqr(abs(maus.x - AHindernis.hx)) + sqr(abs(maus.y - AHindernis.hy))) > (maus.r + AHindernis.hr) + 8));
end; 

procedure TSpielfeld1.FormCreate(Sender: TObject);
begin
  InitiateHindernis(hindernis1);
  InitiateHindernis(hindernis2);
  InitiateHindernis(hindernis3);
  hindernis1.show;
  hindernis2.show;
  hindernis3.show;
end;

Für die Hindernisse scheint ein Array eine gute Idee zu sein.

[DeddyH]

Übrigens gibt es in der Unit math die Funktion hypot, damit spart man sich das Quadrieren und Wurzelziehen.