Delphi memo 手动选择txt文本编码并读取

本文整理自网络，侵删。

 
(前略)

  private
    { Private  }
    FFileName: String;    
    FEncodingIndex: Integer;
  public
    { Public  }
  end;
(后略)



var
  Enc: TEncoding;
begin
  if OpenTextFileDialog1.Execute then
    begin

      FFileName := OpenTextFileDialog1.FileName;
      FEncodingIndex := OpenTextFileDialog1.EncodingIndex;
      // EncodingIndex delphitop.com
      case FEncodingIndex of  
        1: Enc := TEncoding.Unicode;
        2: Enc := TEncoding.BigEndianUnicode;
        3: Enc := TEncoding.UTF8;
      else
        Enc := TEncoding.Default; // 0: ANSI
      end;

      Memo1.Lines.LoadFromFile(FFileName, Enc); 
    end;



procedure TForm1.FormCreate(Sender: TObject);
begin
  FFileName := '';
  FEncodingIndex := 0;
end;
 

相关阅读 >>

Delphi获取flash文件的影片时长,原始尺寸,帧数等信息

Delphi fdquery 判断记录为空

Delphi formatdatetime 显示日期时间

Delphi 动态生成九宫格按钮

Delphi禁用,启用网卡

windows api 的数据类型与 Delphi 数据类型对照表

Delphi xe新语法/新功能

Delphi 提高unigui开发效率的两个方法

Delphi格式化wmi中的datetime

Delphi 数字分隔

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi memo 手动选择txt文本编码并读取