[Delphi] Jak usunąć wielokrotne spacje ze stringa?

0

Witam,

Czy wie ktoś może jak szybko usuąć wielokrotne spacje ze stringa?
Chodzi mi tutaj o przypadek gdy zamiast jednej spacji jest ich więcej, nie wiadomo ile.
Pozdrawiam

0
function func(s: string): string;
begin
  while pos(#32#32, s) <> 0 do
    s := stringReplace(s, #32#32, #32, [rfReplaceAll]);
  result := trim(s);
end;
0

Działa bajera :d
Big thnx!

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0