Exportação para arquivo txt

[jocildoandrade]

Olá pessoal,
tô fazendo uma exportação para arquivo txt com posição e tamanho do campo definidos. O problema tá no valor numérico. tenho que exportar o valor do campo e completar com 'ESPA??OS EM BRANCO' a esquerda. Alguém tem uma dica de como fazer?
Desde já, agradeço.

Jocildo Andrade

[Marcelo]

Jocildo, veja se meu exemplo abaixo te ajuda.

Tem uma função
MascValor(Valor: Extended; Mascara: string): string;
onde você passa um valor, a mascara e ela retorna o uma string com a máscara que você definiu.

No exemplo abaixo a máscara retornara o valor passado com os BRANCOS a esquerda.

procedure TFormGruposDeCC.Button1Click(Sender: TObject);
begin

MessageDlg('VALOR:'+#39+MascValor(123.45,'-ZZ.ZZZ.ZZ9,99')+#39, mtError, [mbOk], 0);

end;

Testa na tua exportação e posta o resultado para nós.

Um abraço,
Marcelo

[Gilberto]

Olá

Poderia usar

Linha := Linha + StrZer(DDMMAAAA(TabGlobal.DTitulos.VENCTO.ValorString),8);
---> Linha := Linha + LimpaNumeros(FormatFloat('000000.00',TabGlobal.DTitulos.VALOR.Conteudo));
Linha := Linha + StrZero(TabGlobal.DTitulos.parcela.Conteudo,3);


Funções usadas

function LimpaNumeros(const Dados: string): string;
var
Contar: integer;
Resultado: string;
begin
Resultado := '';
for Contar := 1 to Length(Dados) do
begin
if Pos(Copy(Dados, Contar, 1), '-.0123456789') > 0 then
begin
if Copy(Dados, Contar, 1) = '.' then
Resultado := Resultado + ','
else
Resultado := Resultado + Copy(Dados, Contar, 1);
end;
end;
if Copy(Resultado, 0, 1) = ',' then
Resultado := '0' + Resultado;
if Copy(Resultado, Length(Resultado), 1) = ',' then
Resultado := Resultado + '00';
Result := Resultado;
end;