Ver Mensaje Individual
  #4  
Antiguo 06-07-2010
Avatar de look
look look is offline
Miembro
 
Registrado: sep 2007
Ubicación: The Shire
Posts: 656
Reputación: 17
look Va camino a la fama
Cita:
Empezado por ingabraham Ver Mensaje
hola,
tengo un campo consecutivo
1
2
3
...
necesito rellenarlos asi

000008
000009
000010
000011
...
Código Delphi [-]
  function Alinea(S: String; N: Integer): String;
begin
  Result:=StringOfChar('0',N-Length(S))+S;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
caption:=alinea('9',6)
end;
__________________
all your base are belong to us
Responder Con Cita