Programmoptimierung

[Klaus01]

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