Alle Wörter aus einem String in eine Listbox

[Pseudemys Nelsoni]

hatte den code extra nicht gepostet, da er unordentlich aussieht und sicher auch zu lang (kürzer krieg ichs halt nicht hin.

Delphi-Quellcode:

procedure TForm1.IdIRC1Raw(Sender: TObject; AUser: TIdIRCUser; ACommand,
  AContent: String; var Suppress: Boolean);
var s, s2: string;
begin
  SlAdmin := TStringList.Create;
  SlOp := TStringList.Create;
  SlHop := TStringList.Create;
  SlVoice := TStringList.Create;
  SlReg := TStringList.Create;
  SlAdmin.Sorted := true;
  SlOp.Sorted := true;
  SlHop.Sorted := true;
  SlVoice.Sorted := true;
  SlReg.Sorted := true;
  s := acontent;
  if acommand = '353' then
  begin
    Repeat
      Delete(s, 1, 1);
    Until s[1] = ':';
    Delete(s, 1, 1);
    Repeat
      if s[1] = '!' then
      begin
        Delete(s, 1, 1);
        SlAdmin.AddObject(Copy(s, 1, Pos(' ', s)), image13.Picture.Bitmap);
        i := i + 1;
        label1.Caption := 'Zur Zeit aktive Benutzer: ' + IntToStr(i);
      end
      else
      if s[1] = '@' then
      begin
        Delete(s, 1, 1);
        SlOp.AddObject(Copy(s, 1, Pos(' ', s)), image12.Picture.Bitmap);
        i := i + 1;
        label1.Caption := 'Zur Zeit aktive Benutzer: ' + IntToStr(i);
      end
      else
      if s[1] = '%' then
      begin
        Delete(s, 1, 1);
        SlHop.AddObject(Copy(s, 1, Pos(' ', s)), image14.Picture.Bitmap);
        i := i + 1;
        label1.Caption := 'Zur Zeit aktive Benutzer: ' + IntToStr(i);
      end
      else
        if s[1] = '+' then
      begin
        Delete(s, 1, 1);
        SlVoice.AddObject(Copy(s, 1, Pos(' ', s)), image15.Picture.Bitmap);
        i := i + 1;
        label1.Caption := 'Zur Zeit aktive Benutzer: ' + IntToStr(i);
      end
      else
        if (s[1] <> '!') OR (s[1] <> '@') OR (s[1] <> '%') OR (s[1] <> '+') then
        begin
          SlReg.AddObject(Copy(s, 1, Pos(' ', s)), image16.Picture.Bitmap);
          i := i + 1;
          label1.Caption := 'Zur Zeit aktive Benutzer: ' + IntToStr(i);
        end;
      while s[1] <> ' ' do
        Delete(s, 1, 1);
      Delete(s, 1, 1);
    until s = '';
    listbox1.Items.AddStrings(SlAdmin);
    listbox1.Items.AddStrings(SlOp);
    listbox1.Items.AddStrings(SlHop);
    listbox1.Items.AddStrings(SlVoice);
    listbox1.Items.AddStrings(SlReg);
  end;
end;

dein code ist da mit drin(sonst würds wohl noch nicht funzen *g*)
musste ihn nur bisschen verlängern für das ganze Op admin hop voice zeug :\

...jo ich weiss "wozu die stringslists", da ich die nicks nach bildern ordne und nicht nach alphabet ging das leider nicht anders(oder doch?)

nochmals danke ^^

gruss mario