Einzelnen Beitrag anzeigen

groomy

Registriert seit: 21. Nov 2003
3 Beiträge
 
#1

Listindex überschreitet das Maximum

  Alt 19. Nov 2004, 16:59
Könnt ihr mir sagen, warum hierbei immer diese Fehlermeldung angezeigt wird? Sieht so aus, als würde der auf eine Komponentenzahl zugreifen, die nicht mehr existiert?

Delphi-Quellcode:
procedure Tspiel.TiSchnellTimer(Sender: TObject);
var i:integer;

 for i:=1 to componentcount-1 do begin

     if timage(components[i]).tag=1 then
     Timage(components[i]).top:=Timage(components[i]).top-5;
 
     if (timage(components[i]).tag=1) and (timage(components[i]).top<0) then
     Timage(components[i]).destroy;

 end;
end;
  Mit Zitat antworten Zitat