Preencher campo da tabela com zero

Question

Pessoal,Imagine que tenho um campo da tabela do tipo int, o comprimento � 7. No momento que busco o valor na tabela, preciso que o valor seje retornado dessa forma. Ex:0000001 ou 0000023Pensei em colo...

Edilcimar · Answer

use uma vari�vel string pegue o valor num�rico jogue na vari�vel e preencha com zeros � esquerda...

Leandrosl · Answer

Vc pode me dar um exemplo ?Obrigado...

Gilson.pontes · Answer

Amigo, n�o sei como vc vai implementar a� no seu caso, mas utilizo as fun��o abaixo:

function CplStrEsq(n, t: integer): string;
i: integer;
begin
Result := IntToStr(n);
i := length(Result);
while (i < t) do
begin
Result := �0� + Result; // adiciona um zero � esquerda
inc(i);
end;
end;

onde �n� � o inteiro autoincrementado,
�t� � o tamanho da string que vc quer gerar,
e �i� � uma vari�vel interna da fun��o que vai determinar a inclus�o de zeros � esquerda enquanto i<t.

abra�o.

Leandrosl · Answer

Ok pessoal, resolvi esse problema da seguinte forma:

Variavel:=FormatFloat(�000000#�,StrToInt(Edit1.Text));

Aproveitando o t�pico, algu�m sabe me dizer como eu pego os espa�os vazios de um campo da tabela ?

Ex:

Tenho um campo do comprimento 30. Imagine que nesse campo eu utilize apenas 10 caracteres, ent�o sobraram 20. Eu estava precisando pegar o conteudo do campo e os espa�oes em brancos que sobraram. Existe alguma fun��o do delphi que me retona isso ?

O banco que estou utilizando � o MySQL.

Obrigado

F�rum Preencher campo da tabela com zero #350326