Para poner ceros a la izquierda utiliza el FormatFloat.
Código Delphi [-]...
var
Folio: String;
begin
Folio := FormatFloat('0000', 1);
end;
Un saludo
__________________
Al hacer una consulta SQL, haz que los demás te entiendan y disfruten de ella, será tú reflejo de tú saber.
|