Cambiando un string

[[Al González]]

Revisa el procedimiento nativo System.Insert. Este te permite insertar subcadenas (o caracteres simples) en cualquier parte de una cadena de caracteres. Tendrás que llamarlo varias veces dentro de un ciclo que recorra el String original.

Para describir mejor tu requerimiento, ¿podrías detallarnos cuál es el uso que le darás al resultado o por qué necesitas hacer esto? Así tendremos una idea concreta del propósito y la regla sintáctica o de formato que deberá aplicarse.

Gracias.

[BDWONG]

Hola como bien dijo el compañero puedes usar la funcion insert
Bueno en base ha eso me puse a realizar una posible implementacicon, bueno sin mas que decir aqui esta

Código Delphi [-]
function _changeString(const source:string):string;
var
index,size:integer;
copyString:string;
begin
  copyString:=source;
  size:=Length(copyString);

  if size mod 2=0 then
  begin
    Insert('.',copyString,2);
    if size>2 then Insert('.',copyString,4);
    index:=4;
    while(index < Length(copyString)-2) do
    begin
       Inc(index,3);
       Insert('.',copyString,index);
    end;
  end;
  Result:=copyString;
end;

//Saludos..