Strings

[s14]

Hallo malo

besser so

Delphi-Quellcode:

  i := Pos(' ', s);
  while i > 0 do
  begin
    Delete(s, i, 1);
    i := Pos(' ', s);
  end;