No SavetoFile de uma TStringList, ultima linha em branco

Delphi

15/03/2005

Estou criando uma arquivo TXT, para outro software fazer uma leitura.

Nele, eu to usando TStringList para criar o corpo do arquivo e no final eu dou TStringList.SaveToFile(´Arquivo´).

Mas quando vou abrir o arquivo gerado esta com uma linha a mais em branco. Sendo que eu naum criei em momento algum.

O que posso fazer para solucionar isso???

T+
Obrigadão Galera...
:lol:


Dimmy

Dimmy

Curtidas 0

Respostas

Rômulo Barros

Rômulo Barros

15/03/2005

O que posso fazer para solucionar isso???


:arrow: [b:5680fb5746]Vc poderá postar o código aqui, para que possamos analisá-lo [/b:5680fb5746]


GOSTEI 0
Dimmy

Dimmy

15/03/2005

Var
Lst : TStringList;
begin
Lst := TStringList.Create;

Lst.Add(´Linha 1´);
Lst.Add(´Linha 2´);
Lst.Add(´Linha 3´);
Lst.Add(´Linha 4´);

Lst.SaveToFile(´ArquivoGerado.txt´);


E o arquivo aparece uma 5ª linha... em branco


GOSTEI 0
Beppe

Beppe

15/03/2005

Vc pode fazer via TextFile(com Write/Writeln), ou usar uma stream escrevendo os CRLF.


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

15/03/2005

Colega,

Não há uma linha em branco no arquivo gerado. Se você analisar o arquivo com um editor hexadeximal poderá constatar que existe apenas a terminação padrão de CR + LF em cada linha, porém, dependendo do editor de textos que você visualizar, poderá ter esta impressão.


GOSTEI 0
POSTAR