23.08.2012, 00:38
|
|
.
|
|
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
|
|
Можно использовать TList:
Код:
type
TAvatar = class
Bitmap : TBitmap;
ID : Integer;
end;
var
Avatar : TAvatar;
List : TList;
...
List := TList.Create;
...
Avatar := TAvatar.Create;
Avatar.Bitmap := TBitmap.Create;
Avatar.Bitmap.Assign(Нужный битмап);
Avatar.ID := Нужный ID;
List.AddObject('', Avatar);
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
|