Leer archivo de texto en Delphi 2009

Question

Tengo un archivo de texto con codificación UTF8, y crear una aplicación en Delphi 2009 con un opendialoge, una nota y un botón y escribir este código:

if OpenTextFileDialog1.Execute then 
    Memo1.Lines.LoadFromFile(OpenTextFileDialog1.FileName); 

Cuando ejecutar mi aplicación, hago clic en el botón y seleccionar mi archivo de texto, en el memo que veo:

"Œ ط¯ط ± ط ¢ ظ ... â € â € œ چظط²ط' ع © â € چط' â € چط§ظط ± ط²غ Œâ € Œ: ط ± "

los caracteres no se muestran correctamente. ¿Cómo puedo resolver este problema?

Answer 1

Si el archivo no tiene una lista de materiales UTF-8 al principio, entonces usted necesita para contar LoadFromFile() que el archivo está codificado, por ejemplo:

Memo1.Lines.LoadFromFile(OpenTextFileDialog1.FileName, TEncoding.UTF8); 

Answer 2

Es posible seleccionar un formato de codificación en el Diálogo OpenTextFile. OpenTextFileDialog.Encodings representa una lista de codificaciones que se pueden usar, lista predeterminada: ANSI, ASCII, Unicode, BigEndian, UTF8 y UTF7.

// Optionally add Encoding formats to the list: 
FMyEncoding := TMyEncoding.Create; 
OpenTextFileDialog1.Encodings.AddObject('MyEncoding', FMyEncoding); 
// Don't forget to free FMyEncoding 


var 
    Encoding : TEncoding; 
    EncIndex : Integer; 
    Filename : String; 
begin 
    if OpenTextFileDialog1.Execute(Self.Handle) then 
    begin 
    Filename := OpenTextFileDialog1.FileName; 

    EncIndex := OpenTextFileDialog1.EncodingIndex; 
    Encoding := OpenTextFileDialog1.Encodings.Objects[EncIndex] as TEncoding; 
    // No Encoding found in Objects, probably a default Encoding: 
    if not Assigned(Encoding) then 
     Encoding := StandardEncodingFromName(OpenTextFileDialog1.Encodings[EncIndex]); 

    //Checking if the file exists 
    if FileExists(Filename) then 
     //Display the contents in a memo based on the selected encoding. 
     Memo1.Lines.LoadFromFile(FileName, Encoding)