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-123
BAD-
coloca una "-" al final como puedo mejorar esto...
GRACIAS DE TODAS FORMAS...