Tema: Agregar digitos
Ver Mensaje Individual
  #2  
Antiguo 12-02-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
  
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola maxzama.

Tres opciones:
Código Delphi [-]
var
  cad: string;
begin
  cad:= '12345';
  ShowMessage(
  {Opcion 1} StringOfChar('0', 11 - Length(cad)) + cad   + ' - ' +
  {Opcion 2} Format('%.11d',[StrToInt(cad)]) + ' - ' +
  {Opcion 3} Copy('00000000000', 1, 11 - Length(cad)) + cad
  );

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Última edición por ecfisa fecha: 12-02-2015 a las 20:10:07. Razón: Agregar opción
Responder Con Cita