Wie kombiniere ich das jetzt mit der TObjectlist?
Also ohne Generics (ja, haut mich), müsstest du jetzt eine TObjectList irgendwo erstellen und sie füllen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
MeineObjectList: TObjectList;
Test: TBild;
begin
MeineObjectList := TObjectList.Create;
Key := 'Feld'+IntToStr(Feldx)+','+IntToStr(Feldy);
Test := TBild.Create;
Test.FImageName:=Key;
Test.FImageHeight:=Feldsize;
Test.FImageWidth:=Feldsize;
Imagelist1.GetBitmap(0,Test.FImageContent);
MeineObjectList.Add(Test);
// Irgendwo musst du dann auch die ObjectListe wieder freigeben.
end;
Ich habe das jetzt nicht getestet aber das müsste doch eigentlich so funktionieren, oder?