Zeros a esquerda.

18/12/2003

6

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.


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;


Responder

18/12/2003

Nigro

O Delphi possui uma função nativa, assim
FormatFloat(´00000´,12);


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira