[zorazo]

Народ помогите, я пишу свой icq клиент, мне нужно чтобы моя ася загружала контакт-лист

[zorazo]

вот листинг:

Код:

procedure TMainForm.ICQClient1ServerListRecv(Sender: TObject;
  SrvContactList: TList);
var
  i: Word;
  UserInfo: TUINEntry;
  ListItem: TListItem;
begin
  if SrvContactList.Count > 0 then
    for i := 0 to SrvContactList.Count - 1 do
    begin
      UserInfo := PUINEntry(SrvContactList.Items[i])^;
      if UserInfo.CType = U_VISIBLE_LIST then
        ICQClient1.VisibleList.Add(IntToStr(UserInfo.UIN))
      else if UserInfo.CType = U_INVISIBLE_LIST then
        ICQClient1.InvisibleList.Add(IntToStr(UserInfo.UIN))
      else if UserInfo.CType = U_NORMAL then
      begin
        if ICQClient1.AddContact(UserInfo.UIN) then
        begin
          ListItem := ListView1.Items.Add;
          ListItem.ImageIndex := ICON_OFFLINE;
          ListItem.Caption := IntToStr(UserInfo.UIN);
        end;
      end;
    end;
  ICQClient1.DestroyUINList(SrvContactList);
end;

Admin: Пользуемся тегами!

но все компилируется но при запросе контакт листа появляется List index out of bounds (9) помогите исправить, я вас в разработчики запишу

[TOJluK]

попробуй для начала так:

Код:

for i := SrvContactList.Count - 1 downto 0 do

[zorazo]

попробовал как ты сказал, все равно! тоже самое
мне люди сказали что ошибка где-то в
UserInfo := PUINEntry(SrvContactList.Items[i])^;
только где я не могу понять

[TOJluK]

откопал на другом форуме:

Код:

UserInfo:=PUINEntry(SrvContact List.Items[i])^;
if UserInfo.Nick = '' then UserInfo.Nick:='No Name';

Вот ссылка
http://forum.asechka.ru/showthread.php?page=2&t=97186

[zorazo]

все сделал, но все равно(((