IRC Userliste

[DeddyH]

Was versuchst Du denn da? Das Zerlegen muss schon mit in die Schleife, sonst macht es ja keinen Sinn.

Delphi-Quellcode:

procedure TForm3.ChatNames(Sender: TObject; AUsers: TIdIRCUsers;
  AChannel: TIdIRCChannel);
var
  i         : byte;
  StrArr    : TDynStringArray;
begin
  for i:=0 to AUsers.Count-1 do
    begin
      if Length(AUsers.Items[i].Nick) > 0 then
        begin
          StrArr := Explode('|', AUsers.Items[i].Nick);
          if (Length(StrArr) > 1) and (Trim(StrArr[1]) <> '') then
            Nicknamen.Items.Add(StrArr[1]);
        end;
    end; 
end;

Ungetestet.