Fórum Grvando Arquivo Texto #158770

Colega,

Desculpe-me mas não consegui entender qual é o problema. É o alinhamento dos campos no arquivo?

Sim, o problema é o alinhamento

Olá, Bruno, aqui vai uma dica:

Crie a função abaixo para formatar o conteúdo dos campos antes da gravação no arquivo:

function Tform.formatatexto(campo: string; qtde: integer; alinhamento: string) : string;
begin
if (alinhamento = ´L´) or (alinhamento = ´l´) then
campo := copy(trim(campo)+´ ´,1,qtde)
else
campo := stringofchar(´ ´,(qtde-Length(trim(campo))))+trim(campo);

if pos(´.´,campo) > 0 then
campo[pos(´.´,campo)] := ´,´;
result := campo;
end;

...
Write(Arq,´ ´+formatatexto(QryRegistro.FieldByname(´CARTAO´).Asstring,12,´R´));
Write(Arq,´ ´+formatatexto(QryRegistro.FieldByname(´USUARI´).Asstring,1,´R´));
...

// Supondo que os tamanhos máximos dos campos ´CARTAO´ e ´USUARI´ sejam, respectivamente, 12 e 1. Se não for, troque pelo tamanho que vc definiu.


Espero ter ajudado,

FAB

valeu