Zitat:
Du musst dich nur von alten Denkmustern lösen und einfach übernehmen was DeddyH und jaenicke in den letzten paar Beiträgen gezeigt haben.
Ja, ja..
Wenn man nicht davor sitzt ist alles einfach.
ganz kleines Beispiel. (Das ist noch eins der einfachsten Dinge)
Dann setz mir das mal um auf der Basis wie hier angegeben.
Ohne Array wohlbemerkt.
Delphi-Quellcode:
if Assigned(Sprite) then
begin
if High(Sprite) > ID_MAIN then
begin
for K := ID_FIRST to High(Sprite) do
begin
if Sprite[K].h_Bitmap <> 0 then
begin
DeleteObject(Sprite[K].h_Bitmap);
Sprite[K].h_Bitmap := 0;
ZeroMemory(@Sprite[K], SizeOf(TSprite));
end;
end;
end;
end;
Wenn man keinen Index mehr hat um die Sprites zu identifizieren ist das nicht mal gerade so dahin geworfen.
gruss