Problem mit Bedingung in einer While-Schleife

[marabu]

Noch eine Möglichkeit wäre:

Delphi-Quellcode:

if Prot = 'l:' then begin
  ChatUserOutput.Clear;
  if NewMsg = '' then 
    NewMsg := Msg;
  while NewMsg <> '' do begin 
    TPos := Pos('~', NewMsg);
    if TPos = 0
      then User := NewMsg
      else User := Copy(NewMsg, 1, TPos-1);
    ChatUserOutput.Items.Add(User);
    if TPos = 0 
      then Break
      else Delete(NewMsg, 1, TPos);
  end;
end;

Grüße vom marabu