Programmoptimierung

[DeddyH]

Mal zum Vergleich (ließe sich noch weiter kürzen):

Delphi-Quellcode:

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;

...

for i:= 1 to anzahl do 
  begin
    if existiert[i] then
      if XInRange and YInRange then
        begin
          geister[i].free;
          existiert[i]:=false;
        end;
  end;