Zeros a esquerda.
18/12/2003
0
Preciso fazer uma função pra alinhar a direita.!!
exemplo...
no programa que esta pronto.. e conforme ele gera o arquivo .txt
em um determinado campo (valor da nota fiscal), ele tras o valores:
10.00
5000.00
123.00
100000000.00
Bom gostaria de uma funçao que preenche-se de zero. conforme gera o arquivo txt.( e ja definindo o tamanho do campo supondo tamanho 12 caracter.. ) entao o resultado a cima tem que ficar assim:
000000010.00
000005000.00
000000123.00
100000000.00
Obrigado.
exemplo...
no programa que esta pronto.. e conforme ele gera o arquivo .txt
em um determinado campo (valor da nota fiscal), ele tras o valores:
10.00
5000.00
123.00
100000000.00
Bom gostaria de uma funçao que preenche-se de zero. conforme gera o arquivo txt.( e ja definindo o tamanho do campo supondo tamanho 12 caracter.. ) entao o resultado a cima tem que ficar assim:
000000010.00
000005000.00
000000123.00
100000000.00
Obrigado.
Twbernardes
Curtir tópico
+ 0
Responder
Posts
18/12/2003
Fcampos
caro colega ai vai uma função p te ajudar:
Ex: tenho ´12´ quero formatar com cinco casas, vai ficar assim ´00012´,
edit1.text:=strzero(12,5);
function StrZero(N: longint; Tamanho: integer): string;
var
Conteudo: string;
Diferenca: longint;
begin
Conteudo := IntToStr( N );
Diferenca := Tamanho - Length( Conteudo );
if Diferenca > 0 then
Conteudo := Repl( ´0´, Diferenca ) + Conteudo;
StrZero := Conteudo;
end;
Ex: tenho ´12´ quero formatar com cinco casas, vai ficar assim ´00012´,
edit1.text:=strzero(12,5);
function StrZero(N: longint; Tamanho: integer): string;
var
Conteudo: string;
Diferenca: longint;
begin
Conteudo := IntToStr( N );
Diferenca := Tamanho - Length( Conteudo );
if Diferenca > 0 then
Conteudo := Repl( ´0´, Diferenca ) + Conteudo;
StrZero := Conteudo;
end;
Responder
18/12/2003
Nigro
O Delphi possui uma função nativa, assim
FormatFloat(´00000´,12);
FormatFloat(´00000´,12);
Responder
Clique aqui para fazer login e interagir na Comunidade :)