Como preencher com zeros antes de cada coluna, via select

Delphi

13/11/2003

Olá!
Tenho uma tela que cotém um DBGrid de 3 colunas numéricas.
Preciso fazer um select que concatene estas 3 colunas e grave o resultado em um arquivo.
Sendo que a col1 deve ter 2 caracteres, a col2 deve ter 4 e a col3 deve ter 3.
Se, por exemplo, na col2 tiver um número 47, deve ser preenchido com zeros, ficando 0047. Deve ser sempre preenchido com zeros antes, para os caracteres menores que 2 na col1, 4 na col2 e 3 na col3.

No Oracle existe uma maneira de fazer, que ficaria assim:

select lpad(col1,2,0)||lpad(col2,4,0)||lpad(col3,3,0) from tabela

mas infelizmente o Delphi não aceita o comando ´lpad´, aceita somente o de concatenação ´||´.


Alguém tem alguma idéia de como fazer isto, através de um select ???


Desde já agradeço.


Bclr

Bclr

Curtidas 0

Respostas

Bclr

Bclr

13/11/2003

Por favor alguém me ajude!!!


GOSTEI 0
POSTAR