Como Alinhar ou Colunar?

Delphi

25/11/2004

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

Curtidas 0

Respostas

Gandalf.nho

Gandalf.nho

25/11/2004

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


GOSTEI 0
Wgm8

Wgm8

25/11/2004

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?


GOSTEI 0
Weber

Weber

25/11/2004

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.


GOSTEI 0
Paulo_amorim

Paulo_amorim

25/11/2004

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é+


GOSTEI 0
POSTAR