Ol� pessoal,Estou usando o seguinte c�digo para carregar o conte�do de um arquivo:[code=delphi]procedure TFrmMain.CarregarConteudo;var varString: string; StringList: TStringList;begin Str...

Problema ao Carregar Arquivo Txt em Vari�vel (Caracteres Especiais)

15/01/2024

Ol� pessoal,

Estou usando o seguinte c�digo para carregar o conte�do de um arquivo:

procedure TFrmMain.CarregarConteudo;
var
  varString: string;
  StringList: TStringList;
begin

  StringList := TStringList.Create;

  try
    // Carrega Conte�do
    StringList.LoadFromFile(ArquivoTexto);   // Carrega o arquivo
    varString := StringList.Text;   // Transfere o arquivo carregado na StringList na vari�vel varString;
    FrmEditor.MmTexto.Lines.Text := varString;   // Carrega o conte�do da vari�vel no Editor

  finally
    FreeAndNil(StringList);
  end;
end;

A princ�pio o c�digo carrega normalmente o arquivo (com acentos, Enter e caracteres especiais):

T�tulos (Portugu�s)
T�tulo 01
T�tulo 02
T�tulo 03
T�tulo 04
T�tulo 05ﾳﾯ

O c�digo parece estar correto, por�m ao final do arquivo aparece 2 caracteres especiais (que n�o aparecem se editar o mesmo arquivo no Bloco de Notas).
Preciso carregar o arquivo .txt na vari�vel, pois irei manipular esses dados depois.

O que pode estar acontecendo de errado?

Lucas Bernieri

Curtir t�pico + 0

Responder

Post mais votado

15/01/2024

Voc� consegue identificar o c�digo ASCII destes caracteres, para termos uma ideia?

Um arquivo texto convencional cont�m separadores de linha, que podem ser distintos para o Windows e outros sistemas.

No Linux e sistemas semelhantes (n�o Windows), as linhas s�o separadas por um caractere #10 (Line Feed).
No Windows, o separador de linhas � composto de 2 caracteres: #13 (Carriage Return) e #10 (Line Feed).

Ao final do arquivo, pode ser acrescido um caractere extra #26 (End of File), embora n�o obrigat�rio.

Tamb�m existe a possibilidade de que o arquivo que voc� est� lendo n�o seja um arquivo do tipo texto puro, podendo conter outros caracteres de controle.

A leitura de arquivos pressup�e o conhecimento de seu formato.

Se voc� afirma que existem dois caracteres especiais no final do arquivo, pode tentar descobrir quais s�o, para entender o que est� acontecendo.

  ShowMessage(IntToStr(Ord(varString[Length(varString)-1]))+' - '+IntToStr(Ord(varString[Length(varString)])));

Arthur Heinrich

Responder

Gostei + 1