Einzelnen Beitrag anzeigen

Yheeky

Registriert seit: 7. Jun 2002
1.339 Beiträge
 
#9

Re: Thread, aber wie einbauen?!

  Alt 19. Jan 2007, 12:31
Du meinst:

Delphi-Quellcode:
procedure TForm1.ICQClient1UserInfoShort(Sender: TObject; UIN, NickName,
  FirstName, LastName, Email: string; UserFound, AuthRequired: Boolean);
var
  I: Integer;
begin
for I := 0 to EasyListView1.Items.Count - 1 do
 if UIN = EasyListView1.Items.Items[I].Captions[1] then
 EasyListView1.Items.Items[I].Captions[2] := Nickname;

end;


procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
for I := 0 to EasyListView1.Items.Count - 1 do
ICQClient1.RequestInfoShort(StrToInt(EasyListView1.Items.Items[I].Captions[1]));

end;
Wäre natürlich sehr langsam, aber könnte funktionieren...werde ich mal zuhause testen, einfach weils mich interessiert. Die andere Variante müsste aber funktionieren.
  Mit Zitat antworten Zitat