Tema: Agregar ceros al pincipio de folio
Ver Mensaje Individual
  #5  
Antiguo 02-05-2007
Avatar de jhonny
jhonny jhonny is offline
Jhonny Suárez
  
Registrado: may 2003
Ubicación: Colombia
Posts: 7.058
Reputación: 30
jhonny Va camino a la famajhonny Va camino a la fama
Cita:
Empezado por marcoszorrilla
Aquí tienes un ejemplo que acabo de preparar, es para añadir ceros por la izquierda.

Código Delphi [-]
Result:=StringOfChar('0',nLen - Length(cVar))+cVar;
Un Saludo.

Acabo de anotar esa función en la libreta de "Para no olvidar".
__________________
Lecciones de mi Madre. Tema: modificación del comportamiento, "Pará de actuar como tu padre!"

http://www.purodelphi.com/
http://www.nosolodelphi.com/
Responder Con Cita