Rellenar con ceros (0)

[[José Luis Garcí]]

Prueba esta función que uso a menudo, ten encuenta que tipo es el campo, debe ser String

Código Delphi [-]
[//Delvuelve unacadena reyena de ceros al frente
  function ceros(text:string;Cant:integer):string;  //Propia
        EJEMPLO
        a2:=ceros(inttostr(32),4);
        a2 = 0032
}


//Delvuelve unacadena reyena de ceros al frente
function ceros(text:string;Cant:integer):string; //Funcion para rellenar con ceros a la izquierda
var
   valor,x:integer;
   dev,con:string;
begin
   con:='';
   valor:=length(text);
   if valorthen
   begin
        for x:=1 to (cant-valor) do
        begin
            con:=con+'0';
        end;
        dev:=con+text;
   end
   else
   dev:=text;
   result:=dev;
end;