Alinhamento Monetário a direita
Olá a todos
Estou 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 0036 606,00
MODA VERÃO LJ 4 0036 606,00
MODA VERAO LJ 7 0036 606,00
MODA VERAO LJ 11 0036 606,00
MODA VERÃO LJ 1 0036 1.102,00
MODA VERÃO LJ 4 0036 1.102,00
MODA CALÇADOS 0036 1.062,00
BRAGA CALÇADOS 3 0036 1.062,00
Estou usando FormatFloat( ´#,,0.00´ , Vlr)
Abraços e Obrigado
Neto
Estou 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 0036 606,00
MODA VERÃO LJ 4 0036 606,00
MODA VERAO LJ 7 0036 606,00
MODA VERAO LJ 11 0036 606,00
MODA VERÃO LJ 1 0036 1.102,00
MODA VERÃO LJ 4 0036 1.102,00
MODA CALÇADOS 0036 1.062,00
BRAGA CALÇADOS 3 0036 1.062,00
Estou usando FormatFloat( ´#,,0.00´ , Vlr)
Abraços e Obrigado
Neto
Neto
Curtidas 0
Respostas
Crpavao
15/03/2007
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);
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);
GOSTEI 0
Titanius
15/03/2007
Usa a própria função do delphi:
exibe assim:
exibe assim:
[]s
Format(´¬10.2n´, [VALOR]);
exibe assim:
texto 100,00 texto 50,00
Format(´¬10.2m´, [VALOR]);
exibe assim:
texto R$100,00 texto R$50,00
[]s
GOSTEI 0
Neto
15/03/2007
Valeu....
Todas as duas dicas ficam muito boas
Obrigado
Neto
Todas as duas dicas ficam muito boas
Obrigado
Neto
GOSTEI 0
Crpavao
15/03/2007
Pô! vivendo e aprendendo! Não conhecia esta função.
Fiz a função fdireita e fesquerda, mas este Format é legal.
Obrigado.
Fiz a função fdireita e fesquerda, mas este Format é legal.
Obrigado.
GOSTEI 0
Neto
15/03/2007
Alinhamento Monetário funcionou muito bem com Format.
Agora e pra alinhar número inteiros a direita???
Ex:
1.120
2.005
750
33
1.230
Abraços
Neto
Agora e pra alinhar número inteiros a direita???
Ex:
1.120
2.005
750
33
1.230
Abraços
Neto
GOSTEI 0
Crpavao
15/03/2007
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????
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????
GOSTEI 0
Neto
15/03/2007
Ok Pavão, mas deve ter um FormatXXXXX prá isso
Obrigado
Neto
Obrigado
Neto
GOSTEI 0
Crpavao
15/03/2007
Não....
Basta esta função, Neto.
Basta esta função, Neto.
GOSTEI 0
Neto
15/03/2007
Essa funciona...
Format(´¬6d´, [ValorInteiro])
Abraços
Format(´¬6d´, [ValorInteiro])
Abraços
GOSTEI 0