Mærkelige tegn?

Det er vel <CR><LF> altså linieskift.

Og hvordan kan man sortere linierne?

Arne: hvordan kan man så lave 'rigtige' linier istedetfor?

Du skal vel have splittet den streng op i separate strenge - en
med hver linie.

Kan jeg få noget kode...?

Eksempel på split:

program linesplit;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i,ix : integer;
  s : string;
  ss : array [1..3] of string;

begin
  s := 'abc' + chr(13) + chr(10) + 'def' + chr(13) + chr(10) + 'ghi';
  writeln(s);
  ix := 1;
  for i := 1 to length(s) do begin
    if s[i] = chr(13) then begin
        (* nothing *)
    end else if s[i] = chr(10) then begin
      ix := ix + 1;
    end else begin
      ss[ix] := ss[ix] + s[i];
    end;
  end;
  for i := 1 to ix do begin
    writeln(i,' : ',ss[i]);
  end;
end.

Har du prøvet noget så simpelt som:

ListBox.Items.Text := IRCBrugere;

Hvor IRCBrugere er den string, der indeholder din bruger list?

doc404: er det ikke kun comboboxe ?

nej. Ovenstående virker også på listboxe og alt andet hvor det er en TStrings ting...

Det problem får jeg også så jeg følger med.
VH
Koden12

Ved ikke lige hvilken char irc sender til at dele commands op med, men det burde være crlf, og som doc404 siger skulle det jo så virke sådan.

Men ellers når du modtager må du finde ud af hvilken char kode de tegn har som deler usernames op.
Når du kender dem kan du bare bruge stringreplace


ListBox.Items.Text := stringreplace(ModtagetTekst, 'Som skal erstattes', #13#10, [RfReplaceAll]);


for at finde ud af hvad det er for en char kan du bruge ord:

Var
i:integer;
begin
for i := 1 to length(ModtagetTekst) do
  showmessage(inttostr(ord(ModtagetTekst[I])));
end;

Se hvad der går igen...(ikke testet)

doc404's svar,

ListBox.Items.Text := IRCBrugere;

..virker! :)


Så nu ser min kode sådan ud:

procedure TForm2.Button2Click(Sender: TObject);
begin
ListBox1.Clear;
ListBox1.Items.Text := IdIRC1.Channels.Items[0].Names.Text;
end;