Zitat von
DeddyH:
Mal zum Vergleich (ließe sich noch weiter kürzen):[delphi]function XInRange: Boolean;
begin
Result := (image2.left>geister[i].left) and (image2.left<geister[i].left+30) or
(image2.left+26>geister[i].left) and (image2.left+26<geister[i].left+30);
end;
function YInRange: Boolean;
begin
Result := (image2.top>geister[i].top) and (image2.top<geister[i].top+30) or
(image2.top+26>geister[i].top) and (image2.top+26<geister[i].top+30);
end;
.. wobei ich es "hübscher" finden würde wenn xInRange und yInRange die
zu vergleichenden Images und Geister als Parameter übergeben bekämen.
Beispiel:
Code:
function xInRange(AImage: TImage; AGeist:TGeist);
Man könnte dann gleich am Aufruf sehen was verglichen wird.
Grüße
Klaus