Função que adiciona zeros a Esquerda

[orc 0]

{Função para Adicionar Zeros a Esquerda}Function StrZeros(Texto: String; Qtde: Integer): String;var i, Tam: integer;	Aux: String;begin   Aux := '';   Tam := Length(Texto);   for i := Tam to (Qtde - 1) do	 Aux := Aux + '0';   StrZeros := Aux + Texto;end;

[Rodrigo Salvador 0]

é mais fácil (e rápido) usar FormatFloat:

 

 

s := FormatFloat('0000000000', 10);

 

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[orc 0]

é mais fácil (e rápido) usar FormatFloat:

 

 

s := FormatFloat('0000000000', 10);

 

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

bom agora você descobriu outra forma de fazer a mesma coisa

[Andre Renato 0]

Se a aplicação estiver trabalhando com um banco SQL, assim também fica legal:

 

select lpad(campo, 10, 0) 
from tabela

 

O valor desejado a ser recuperado da base já vem com a formatação acrescida de zeros à esquerda.