Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Cambiando un string (https://www.clubdelphi.com/foros/showthread.php?t=90048)

Soa Pelaez 26-03-2016 17:19:47

Cambiando un string
 
Buen día.

Quisiera que me ayudarán tengo una cadena con n cantidad de caracteres, lo que quisiera hacer poder cambiar este string y añadir un simbolo cada cierta cantidad de caracteres, ejemplo.

Si la cadena es 12 quiero cambiarla y quede así 1.2,
Si la cadena es 1212 quiero cambiar y que quede 1.2.12
Si la cadena es 121212 quiero cambiarla y que quede en 1.2.12.12 y así sucesivamente,

Si alguien tiene idea de como hacerlo le agradecería la ayuda.

Al González 26-03-2016 19:14:07

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 27-03-2016 03:14:20

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..


La franja horaria es GMT +2. Ahora son las 20:23:42.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi