TStringList og TBitmap

LangBitmapListe.addobject('klyt',TObject(JegSkalgiDigSkalJeg));

ups... JegSkalgiDigEndnuMereSkalJeg := TBitmap(LangBitmapListe[0]);

og så lige en gang til...

JegSkalgiDigEndnuMereSkalJeg := TBitmap(LangBitmapListe.Objects[0]);

Det virker rigtig meget overhovedet ikke...!!!

LangBitmapListe.addobject('klyt',TObject(JegSkalgiDigSkalJeg));

giver bare en fejlmeddelelse... debuggeren finder ikke fejlen, men under runtine kommer der en fejl...???

Kan du poste koden?

var
  StringListDerEREnStringListe2 : TStringList;
  bmp :TBitmap;
  osv....
begin
...

try
while not Eof(F) do
  begin
    Readln(F,s);
    bmp.LoadFromFile(s);
    StringListDerEREnStringListe2.InsertObject(k,s,TObject(bmp));
    k := k +1;
  end;
except
  on exception do
    begin
      MessageDlg('An error occured during the loading of Bitmap files.' + #13#10 +
      'The error has occured while using the   
      file  "ListOfAllBMPImages.ini"',mtError, [mbOk], 0);
      ErrorOccured := true;
    end;
end;

  bmp := TBitmap(StringListDerEREnStringListe2.Objects[1]);
  Image1.Canvas.Draw(0,0,bmp);


Problemet er at Image1.canvas.Draw(....... viser det samme bitmap billede uanset hvilke index jeg benytter.. altså ".Objects[1]" er uafhængig af om jeg vælger 1, 2 eller 36.... Det billede der vises er det sidste billede som indsættes i TStringListen... Readln(F,s) samt bmp.LoadFromFile virker godt nok...

I dit while loop er nød til at create din bmp hver gang. Ellers har du jo blot en stringlist, hvor ALLE items peger på den samme bitmap, der indeholder det sidst loadede billede.

while not Eof(F) do
  begin
    Readln(F,s);
    bmp := TBitmap.Create; <-- mangler denne
    bmp.LoadFromFile(s);

Kanon - så ville jeg lige høre om jeg kan få et svar fra dig, så du kan få dine point...???

Husk at free'e dine bitmaps igen...