Problem mit Bedingung in einer While-Schleife

[MrBona]

Also... ich hab hier folgendes:

Delphi-Quellcode:

  if Prot = 'l:' then
  begin
    ChatUserOutput.Clear;
    if NewMsg = '' then
    begin
      NewMsg := Msg
    end;
    while TPos := Pos('~', NewMsg) do
      User := Copy(NewMsg, 1, TPos-1);
      ChatUserOutput.Items.Add(User);
      NewMsg := Copy(NewMsg, TPos+1, length((NewMsg - length(User)) - 1);
    end;
  end;

Mein Problem ist, das die Bedingung der while Schleife kein boolean ist. In anderen Programmiersprachen wie etwa PHP hat nämlich eine Zuweisung einen Rückgabewert von true oder false. In Delphi wohl leider nicht. Wie kann ich das also machen?
Danke schonmal für die Hilfe ;)

[brechi]

mussu aufteilen

Delphi-Quellcode:

while pos('~',newmsg) > 0 then
begin
  tpos := pos('~',newmsg);
end;

oder halt mit einer repeatschleife machen

[LoL]

Die Abfrage einer While schleife muss von Typ Boolean sein! Was du gemacht hast ist eine zuweisung!

Delphi-Quellcode:

while Pos('~', NewMsg) > 0 do 
~
end;

[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

[MrBona]

So, danke erstmal... Ich habs jetzt hinbekommen. :thumb: