Leerzeichen in String einfügen

[Bjoerk]

Habt ihr die schon?

Delphi-Quellcode:

function InsertAfterEveryNthPos(const AStr, AInsertStr: string; const APos: integer): string;
var
  I, InsertCount: integer;
begin
  Result := '';
  if APos > 0 then
  begin
    InsertCount := Length(AStr) div APos;
    for I := 1 to InsertCount do
      Result := Result + Copy(AStr, APos * (I - 1) + 1, APos) + AInsertStr;
    if Length(AStr) mod APos <> 0 then
      Result := Result + Copy(AStr, InsertCount * APos + 1, Length(AStr) - InsertCount * APos);
  end;
end;