[Elza]

День добрый. Подскажите пожалуйста по такому вопросу:

Работаю с Listview в режиме vsReport. Появилась необходимость ассоциировать список с иконками из ImageList.
У себя для добавления списка в ListView использую код:

Код:

  for i := 1 to fileCount do begin
  fileName := copy(fileClump,1,pos('`',fileClump)-1);
  fileListView.AddItem(fileName,pointer(self));
  fileListView.Update;
  delete(fileClump,1,pos('`',fileClump));
  end;

Код:

fileCount - integer

Код:

fileClump - string

Вот в чем суть вопроса, нашла тут функцию:

Код:

function IconNum(strExt: string): Integer;
begin
  else if (strExt = '.txt') or (strExt = '.doc')  then Result := 2
  else if (strExt = '.exe') or (strExt = '.com') then Result := 3
  else Result := 1;
end;

Как можно её мне применить?