Exportar Arquivo TXT
Será que alguém pode me ajudar?
Quando faço a importação de um aquivo txt, um dos valores vem com 4 casas, ex: 1638, se se for menor que 1000, vira 0638. Quando vou fazer a exportaão deste valor, ele também tem que proceder da mesma forma, enviar 0638, caso seja menor que 1000, só que ele manda 638, sem o zero, ai vai dar pau, quando a outra pessoa tentar pegar este valor. Gostaria de saber como faço para enviar este bendito 0 na frente, quando o valor for menor que 1000.
Quando faço a importação de um aquivo txt, um dos valores vem com 4 casas, ex: 1638, se se for menor que 1000, vira 0638. Quando vou fazer a exportaão deste valor, ele também tem que proceder da mesma forma, enviar 0638, caso seja menor que 1000, só que ele manda 638, sem o zero, ai vai dar pau, quando a outra pessoa tentar pegar este valor. Gostaria de saber como faço para enviar este bendito 0 na frente, quando o valor for menor que 1000.
André Lavez
Curtidas 0
Respostas
Thiago Mury
13/10/2011
André, usa a função FormatFloat(0000,valor). Faz exatamento o que precica.
Ex:
valor := 10
FormatFloat(0000,valor);
Resultado será: 0010
Espero ter ajudado.
Ex:
valor := 10
FormatFloat(0000,valor);
Resultado será: 0010
Espero ter ajudado.
GOSTEI 0
André Lavez
13/10/2011
Valeu cara, deu certo. Era o que eu precisava.
GOSTEI 0