Ver Mensaje Individual
  #8  
Antiguo 02-12-2014
Avatar de ElKurgan
[ElKurgan] ElKurgan is offline
Miembro Premium
 
Registrado: nov 2005
Posts: 1.242
Reputación: 22
ElKurgan Va camino a la fama
Código Delphi [-]
function FormatearCuenta(const s: string): string;
begin
  // Espero siempre 24 dígitos
  If length(s) <> 24 then
    Result := ''
  else
    Result := 
      Copy(s, 1, 4) + ' ' + 
      Copy(s, 5, 4) + ' ' 
      Copy(s, 9, 4) + ' ' 
      Copy(s, 13, 4) + ' ' 
      Copy(s, 17, 4) + ' ' 
      Copy(s, 21, 4) ; 
end;

Por supuesto, hay formas más eficientes de hacerlo, pero como idea vale

Saludos
Responder Con Cita