Alinhamento Monet�rio a direita

Question

Ol� a todosEstou lendo uma tabela e gravando num campo memo (TXT), o qual gero um arquivo Texto.Preciso alinha valores monet�rios a direita.Como estou fazendo fica desalinhado.MODA VER�O LJ 1       00...

Crpavao · Answer

Monte uma fun��o fazendo o alinhamento � direita.
Mais ou menos esta funcao:

Function fDireita(aValor:Real;aTamanho:Integer):String;
Var
vT, vInteger;
vX : String;
Begin
vX := FormatFloat(�0.00�,aValor);
vT := Length(vX);
For vI := vT +1 to aTamanho do
vX := � � + vX;
Result vX;
End;

Para chamar: fDireita(Valor desejado, Tamanho m�ximo do valor);

Titanius · Answer

Usa a pr�pria fun��o do delphi:[code:1:9b05633f74]Format(��10.2n�, &#91;VALOR&93;);[/code:1:9b05633f74]exibe assim:[code:1:9b05633f74]texto  100,00texto   50,00[/code:1:9b05633f74][code:1:9b05633f74]Format(��10.2m�, &91;VALOR&93;);[/code:1:9b05633f74]exibe assim:[code:1:9b05633f74]texto  R$100,00texto   R$50,00[/code:1:9b05633f74][]s...

Neto · Answer

Valeu....Todas as duas dicas ficam muito boasObrigadoNeto...

Crpavao · Answer

P�! vivendo e aprendendo! N�o conhecia esta fun��o.Fiz a fun��o fdireita e fesquerda, mas este Format � legal.Obrigado....

Neto · Answer

Alinhamento Monet�rio funcionou muito bem com Format.Agora e pra alinhar n�mero inteiros a direita???Ex:1.1202.005   750     331.230Abra�osNeto...

Crpavao · Answer

Function fDireita(aValor:String;aTamanho:Integer):String;
Var
vT, vInteger;
vX : String;
Begin
vX := aValor;
vT := Length(vX);
For vI := vT +1 to aTamanho do
vX := � � + vX;
Result vX;
End;

fDireita(FormatFloat(�0.00�,12.7),12)
fDireita(Inttostr(234),12)

Sacou????

Neto · Answer

Ok Pav�o, mas deve ter um FormatXXXXX pr� issoObrigadoNeto...

Crpavao · Answer

N�o....Basta esta fun��o, Neto....

Neto · Answer

Essa funciona...Format(��6d�, [ValorInteiro])Abra�os...

F�rum Alinhamento Monet�rio a direita #338804