Freien Platz ermitteln

[Sir Rufo]

1. Abfrage von Bool-Werten
Falsch ist

Delphi-Quellcode:

var IsValid : Boolen;
...
if IsValid = True then
...
if IsValid = False then

Richtig ist:

Delphi-Quellcode:

var IsValid : Boolen;
...
if IsValid then
...
if not IsValid then

2. Integer-Division
So nicht

Delphi-Quellcode:

var IntValue : integer;
...
IntValue := Trunc( IntValue / 2 );

sondern so

Delphi-Quellcode:

var IntValue : integer;
...
IntValue := IntValue div 2;

3. Flächen Operationen (TRect)
Delphi/Windows bringt von Haus aus schon Routinen mit um mit Flächen zu arbeiten.
z.B. IntersectRect

Merk dir also zu jedem Kreis (in einem Array) die Fläche, die dieser Kreis belegt und prüfe diese Liste der Flächen