UINToUser

[Chegga]

Hi,

ich habe eine ListBox in der sich jede menge ICQ-Nummer befinden.
(Ich arbeite mit der ICQClient Komponente von cobans.net.)
Da ich aber gerade mal eine einzige ICQ-Nummer (meine! ) auswendig kann,
suche ich nach einer Funktion die folgendes machen kann:
ICQ-Nummer in User umwandeln
UINToUser
Z.B.: 206315336 -> Chegga
Gibt es so etwas in dieser Art?

So sieht meine Procedure aus, mit der ich die Kontaktliste einlese:

Delphi-Quellcode:

procedure TForm1.ICQClient1ServerListRecv(Sender: TObject;
  SrvContactList: TList);
var
  i: Word; 
  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;

Danke schon mal im voraus!

MfG Marc