formato a una string

[cmm07]

Gracias, muxas gracias de verdad gracias, si me funciono de maravilla ¿como te puedo agradecer? jjejee

*SALU2 A TODOS LOS DEL CLUBDELPHI

Solo un detallito, cuando cambio :
de esto:

Código Delphi [-]
function Separar(Str: String): String;
begin
Result:= EmptyStr;
while Length(Str) > 3 then
begin
Result:= Result + Copy(Str,1,3) + '-';
Delete(Str,1,3);
end;
Result:= Result + Str;
end;

a esto

Código Delphi [-]
function Separar(Str: String): String;
begin
Result:= EmptyStr;
while Length(Str) > 3 then
begin
Result:= Result + Copy(Str,1,6) + '-';
Delete(Str,1,6);
end;
Result:= Result + Str;
end;

el resultado es:
214KGD-HJHENB-123BAD-
coloca una "-" al final como puedo mejorar esto...

GRACIAS DE TODAS FORMAS...

[dec]

Hola,

Se me adelanto Domingo, pero, ya tenía escrito esto...

Código Delphi [-]
(**
 * Put one or more separator into a string.
 *
 * Call example:
 *
 * PutStringSeparator('214KGDHJHENB123BAD', '-', 3)
 *
 * Example result:
 *
 * 214-KGD-HJH-ENB-123-BAD
 *
 * @param String aString String to put separators into it
 * @param String separator Separator to put into the string
 * @param Integer interval Interval characters to put the separator
 * @result String Entry string with the appropiate separator(s)
 *
 *)
function PutStringSeparator(aString,
 separator: string; interval: integer): string;
var
  i, j, strLen: integer;
begin
  j := 1;
  strLen := Length(aString);
  for i := 1 to strLen do begin
    result := result + aString[i];
    if (j = interval) then begin
      if (i < strLen) then begin
        result := result + separator;
      end;
      j := 0;
    end;
    Inc(j);
  end;
end;

[cmm07]

Los 2 estan super buenos Gracias, muxas gracias


me sirvió de maravilla los 2 agradezco por las respuestas

GRACIAS

*gracias a todos los de clubdelphi

[[seoane]]

Empezado por cmm07

... como puedo mejorar esto...

Pues cambiando también este tres por un seis

Código Delphi [-]
while Length(Str) > 3 then