Kontaktliste mit ICQLib anzeigen?

[gsh]

Also diese Zeile:
if SrvContactList.Count > 0 then kannsts du echt vergessen den die for schleife "prüft" des schon ab.

Warum nicht so (ist etwas einfacher)

Delphi-Quellcode:

procedure TForm1.ICQClient1ServerListRecv(Sender: TObject; 
  SrvContactList: TList); 
var 
  i: Word; //word? warum nicht integer
  UserInfo: TUINEntry; 
begin 
  for i := 0 to SrvContactList.Count - 1 do
  begin
    UserInfo := PUINEntry(SrvContactList.Items[i])^;
    if (Length(IntToStr(UserInfo.UIN))= 9) and
       (ICQClient1.AddContact(UserInfo.UIN)) then
    begin
      ListBox1.Items.Add(IntToStr(UserInfo.UIN));
    end;
  end; 
  ICQClient1.DestroyUINList(SrvContactList);
end;