Exportar dados
preciso exportar dados em formato texto
utilizo uma função que peguei aqui porem os espaços em branco não são respeitados.
Preciso exportar para um lay-out pre-definido
Alguem pode me ajudar ???
utilizo uma função que peguei aqui porem os espaços em branco não são respeitados.
Preciso exportar para um lay-out pre-definido
Alguem pode me ajudar ???
Ademilson Moreira
Curtidas 0
Respostas
Sma
08/03/2004
Bom dia...
Se vc quiser manter os espaços em branco, vc devera levar em consideração os espaços.
Para isso faça o seguinte:
Campo Nome com 40 caracteres definido do BD.
Tamanho atual do conteudo do nome (José Alencar) 12 caracteres
Vc deve determinar o tamanho do campo nome ou qq campo q vc queira atraves da function length: var := Length(mNome). Assim vc já tem o tamanho atual que sera 12;
Agora faça a seguinte conta: tamanho total do campo (40) - tamanho atual da variavel(12) = resulta(28);
Com esse vlr vc atribui esses espaços para sua variavel.
mExpVar := mCampoAtual + StringOfChar(´ ´,28) - onde 28 devera ser o valor do resultado da soma acima..
Se vc quiser manter os espaços em branco, vc devera levar em consideração os espaços.
Para isso faça o seguinte:
Campo Nome com 40 caracteres definido do BD.
Tamanho atual do conteudo do nome (José Alencar) 12 caracteres
Vc deve determinar o tamanho do campo nome ou qq campo q vc queira atraves da function length: var := Length(mNome). Assim vc já tem o tamanho atual que sera 12;
Agora faça a seguinte conta: tamanho total do campo (40) - tamanho atual da variavel(12) = resulta(28);
Com esse vlr vc atribui esses espaços para sua variavel.
mExpVar := mCampoAtual + StringOfChar(´ ´,28) - onde 28 devera ser o valor do resultado da soma acima..
GOSTEI 0