Man kann auch einfach eine neue Klasse von TStringList ableiten und eine entsprechende Zugriffsmethode hinzufügen:
Delphi-Quellcode:
type
TTImageList = class (TStringList)
public
function Image (AName : string) : TImage;
...
implementation
function TTImageList.Image (AName : string) : TImage;
var
index : Integer;
begin
index := IndexOf (AName);
if index >= 0 then
Result := TImage(Objects [index])
else
Result := nil;
end;
...und zum Hinzufügen eines TImage zur Liste :
Delphi-Quellcode:
var
liste : TTImageList;
image : TImage;
begin
...
liste.AddObject (image.Name, image);
Dann geht der Zugriff auf ein Image in der z.B. Liste so:
image = liste.Image('Image1');