Alle Wörter aus einem String in eine Listbox

[Pseudemys Nelsoni]

aber ich lösche doch innerhalb der schleife das erste zeichen von s oder?

Zitat:

s := 'HÄ?'

ich weise "s" ja keinen wert zu, bis auf am anfang "s:= acontent" aber das trifft doch nur 1mal zu :?:

:|

[Hansa]

Code:

Repeat    
      if s[1] = '!' begin

Aber nur, wenn das erste Zeichen ein '!'. Uff, Gott sei Dank bin ich von Basic verschont geblieben. :spin:

[Pseudemys Nelsoni]

kann ich das ganze auch ohne case anweisungen machen? ich weiss nicht wie ich das sonst machen kann :cry:

[Pseudemys Nelsoni]

so funzt es nun:

Delphi-Quellcode:

procedure TForm1.IdIRC1Raw(Sender: TObject; AUser: TIdIRCUser; ACommand,
  AContent: String; var Suppress: Boolean);
var s: string;
begin
  SlsCreenab;
  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);
      end
      else
      if s[1] = '@' then
      begin
        delete(s, 1, 1);
        SlOp.AddObject(Copy(s, 1, Pos(' ', s)), image12.Picture.Bitmap);
      end
      else
      if s[1] = '%' then
      begin
        delete(s, 1, 1);
        SlHop.AddObject(Copy(s, 1, Pos(' ', s)), image14.Picture.Bitmap);
      end
      else
      if s[1] = '+' then
      begin
        delete(s, 1, 1);
        SlVoice.AddObject(Copy(s, 1, Pos(' ', s)), image15.Picture.Bitmap);
      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);
      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;