Exibir mensagem anterior :: Exibir próxima mensagem |
Autor |
Mensagem |
natanbh1 Colaborador
Registrado: Terça-Feira, 15 de Março de 2011 Mensagens: 3093 Localização: Belo Horizonte - MG
|
Enviada: Qui Abr 19, 2018 12:41 pm Assunto: Stringlist - Não salvar ultima linha em branco [Resolvido] |
|
|
Estou usando TStringList para criar um arquivo txt e salvo com SaveToFile.
Quando abro o arquivo vejo que está sendo adicionado uma linha em branco no final.
Abri o txt no NotePad++ e notei que está sendo adicionado os caracteres de quebra de linha (CR LF) na penúltima linha,
por isso, aparece esta linha em branco no final.
Existe uma maneira de salvar o Stringlist sem estes caracteres CR LF na última linha?
Se negativo, como posso remover estes caracteres apenas da última linha.
Exemplo:
Código: | Var
Lst: TStringList;
begin
Lst := TStringList.Create;
try
Lst.Add('Linha 1');
Lst.Add('Linha 2');
Lst.Add('Linha 3');
Lst.Add('Linha 4');
Lst.SaveToFile('ArquivoGerado.txt');
Finally
Lst.Free
end;
end; |
Ao salvar aparece uma 5ª linha (em branco). _________________ ''A persistência é o caminho para o êxito.''
Charlie Chaplin
Editado pela última vez por natanbh1 em Qui Abr 19, 2018 5:28 pm, num total de 1 vez |
|
Voltar ao Topo |
|
|
natanbh1 Colaborador
Registrado: Terça-Feira, 15 de Março de 2011 Mensagens: 3093 Localização: Belo Horizonte - MG
|
Enviada: Qui Abr 19, 2018 5:28 pm Assunto: |
|
|
Não consegui resolver com StringList. Troquei por TextFile e funcionou.
Exemplo:
Código: | var
arq: TextFile;
begin
AssignFile(arq, 'ArquivoGerado.txt'); // Associa textfile ao arquivo
Rewrite(arq); // Abre o arquivo para escrita
Writeln('Linha 1'); //Escreve e pula linha
Writeln('Linha 2');
Writeln('Linha 3');
Write('Linha 4'); // Escreve sem pular linha
CloseFile(arq); // Fecha o arquivo
end; |
_________________ ''A persistência é o caminho para o êxito.''
Charlie Chaplin |
|
Voltar ao Topo |
|
|
|