Aufeinander folgende Whitespaces entfernen, eins lassen

[stoxx]

vollständigerweise noch meine Methode

Delphi-Quellcode:

function TrimInside( s : string) : string;
var i, i2 : integer;
begin
i := 0;
i2 := 0;
s := trim(s);
while i < length(s) do
begin

if (s[i] = ' ') and (s[i2] = ' ') then
 begin
   delete(s,i,1);
 end else
 begin
  inc(i);
  i2 := i-1;
 end;
end;
result := s;

end; // von TrimInside