Fórum Como Alinhar ou Colunar? #260040

25/11/2004

0

Estou gravando os dados para uma StringList e gravando em um TXT, só que quando abro o arquivo texto não fica colunado, o que posso fazer?

while not Eof do
begin
sLinha := ´ ´ + Copy(FieldbyName(´REG_TITULAR´).AsString,1,9);
sLinha := sLinha + ´ ´ + Copy(FieldbyName(´REG_DATA´).AsString,1,10);
sLinha := sLinha + ´ ´ + Copy(FieldbyName(´REG_NOME´).AsString,1,50);
StringList.Add(sLinha);
Next;
end;


Sem mais...


Wgm8

Wgm8

Responder

Posts

25/11/2004

Gandalf.nho

Para visualisar colunado, você deve exibir o arquivo com uma fonte mono-espaçada, como Courier New.


Responder

Gostei + 0

25/11/2004

Wgm8

Estou visualizando o arquivo com esta fonte, mas o que ocorre é que ele não grava os campos com os caracteres em branco.

Vc conhece uma maneira pra acertar isso?


Responder

Gostei + 0

25/11/2004

Weber

while not Eof do 
begin 
  sLinha := ´  ´ + Copy(FieldbyName(´REG_TITULAR´).AsString,1,9); 
  sLinha := sLinha + ´  ´ + Copy(FieldbyName(´REG_DATA´).AsString,1,10); 
  sLinha := sLinha + ´  ´ + Copy(FieldbyName(´REG_NOME´).AsString,1,50); 
  StringList.Add(sLinha); 
  Next; 
end; 


Colocando os espaços em branco deve resolver.

Só uma coisa, o COPY não adiciona os espaços em branco ele apenas pega até 50 caracteres por exemplo. Se for colocar espaços em branco que você quer então você terá que criar uma função para adicionar os espaços que você precisa.


Responder

Gostei + 0

26/11/2004

Paulo_amorim

Olá

Só uma coisa, o COPY não adiciona os espaços em branco ele apenas pega até 50 caracteres por exemplo. Se for colocar espaços em branco que você quer então você terá que criar uma função para adicionar os espaços que você precisa.


Se o que se quer eh preencher com espaços em branco, pode-se fazer

sMinhaString := Concat( sMinhaString, StringOfChar(´ ´,<quantas vezes forem necessárias>) );


Espero que ajude
Até+


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar