Forum: Sonstige Fragen zu Delphi
by DeddyH,
7. Mär 2010
Sicherlich, aber da das sowieso als Unterroutine gedacht war, hab ich mir das gespart.
Forum: Sonstige Fragen zu Delphi
by DeddyH,
7. Mär 2010
Mal zum Vergleich (ließe sich noch weiter kürzen):function XInRange: Boolean;
begin
Result := (image2.left>geister.left) and (image2.left<geister.left+30) or
(image2.left+26>geister.left) and (image2.left+26<geister.left+30);
end;
function YInRange: Boolean;
begin
Result := (image2.top>geister.top) and (image2.top<geister.top+30) or
...
Forum: Sonstige Fragen zu Delphi
by DeddyH,
7. Mär 2010
Mir ging es nicht um Zeitgewinn, sondern um Übersichtlichkeit und Wartbarkeit.
Forum: Sonstige Fragen zu Delphi
by DeddyH,
6. Mär 2010
Holla, da sind aber ein paar Haken drin. Der Konstruktor von TImage (und allen anderen Klassen) heißt Create, das solltest Du unbedingt einhalten.TGeist= class(Timage)
public
constructor Create(aOwner: TComponent);override;
end;
Die If-Abfrage vor der for-Schleife kannst Du Dir sparen, da letztere bei Werten < 1 gar nicht durchlaufen wird. Dann wurde bereits gesagt, dass man nicht...