[Кодер]

Уважаемые, имеется ли у итемов копоненты TListBox что-нибудь вроде параметра Data как у итемов TListView?

[poli-smen]

Сообщение от Кодер

Уважаемые, имеется ли у итемов копоненты TListBox что-нибудь вроде параметра Data как у итемов TListView?

Конечно есть

Код:

  ListBox1.Items.Objects[ItemIndex]:=...

[Кодер]

Благодарствую

[Кодер]

Загружаю из интернета аватары пользователей. Соответственно каждая картинка должна быть привязана к некому userid. После чего с этими изображениями нужно работать.
Вопрос: Как правильно организовать хранение данных?
ЗЫ: В моих предположениях необходимо объявить глобально массив из TBitmap и забивать в него все изображения, но как их индексировать? Как им присвоить некий идентификатор, чтобы потом не составила труда в поиске по id?

[angvelem]

Тогда уж запись:

Код:

type
  TAvatar = record
    Bitmap : TBitmap;
    ID : Integer;
  end;

var
  Avatar : array of TAvatar;

[angvelem]

Можно использовать 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);

[NumLock]

Сообщение от Кодер

В моих предположениях необходимо объявить глобально массив из TBitmap и забивать в него все изображения, но как их индексировать? Как им присвоить некий идентификатор, чтобы потом не составила труда в поиске по id?

Код:

type
  TMyBitmap = class(TBitmap)
  public
    UserID: Integer;
  end;
...
var
  abmp: array of TMyBitmap;
begin
  SetLength(abmp, 2);
  
  abmp[0]:=TMyBitmap.Create;
  abmp[0].LoadFromFile('1.bmp');
  abmp[0].UserID:=1248;

  abmp[1]:=TMyBitmap.Create;
  abmp[1].LoadFromFile('2.bmp');
  abmp[1].UserID:=5555;

  ShowMessage(IntToStr(abmp[0].UserID));
  ShowMessage(IntToStr(abmp[1].UserID));
end;

[M.A.D.M.A.N.]

Лучше коллекции пользовать, с массивами труднее, в плане удаления произв. элементов.