Record zu TStringlist hinzufügen

[jaenicke]

Delphi-Quellcode:

  if Assigned(Sprite) then
  begin
    if Sprite.Count - 1 > ID_MAIN then
    begin
      for K := ID_FIRST to Sprite.Count - 1 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;