Hm...Also irgendwie klappt das nicht so ganz wie ich das will...
Hier mal der Code:
Laden der Grafiken:
Delphi-Quellcode:
procedure LoadTex;
begin
SharedImageList.LoadFromFile('Data/Tex/Textures.ail');
SharedImageList.Restore;
[...]
end;
Und das Zuweisen:
Delphi-Quellcode:
procedure TMoneyDisplay.ShowValue;
var
tmp : string;
i : Integer;
begin
tmp := IntToStr(FValue);
for i := 0 to Length(DisplayObject) - 1 do
DisplayObject[i].Image := SharedImageList.Find('0'); //Alle Zahlen null setzen, das klappt auch noch...
for i := 0 to Length(tmp) - 1 do //Richtige Werte zuweisen
DisplayObject[Length(tmp) - 1 - i].Image := SharedImageList.Find(tmp[i + 1]); //Hier das klappt dann nicht mehr...
//Auch wenn ich hier noch Restore irgendwie dahinter schreibe...
end;