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 winsock远程唤醒计算机的函数

Delphi android程序启动过程

Delphi压缩图片代码

Delphi中实现dll文件自动注册

Delphi显示jpg、png、gif图片

Delphi dos批命令打开应用程序同时关闭dos窗口本身

Delphi 写log的代码(按日期)

Delphi 利用hook api函数openprocess与terminateprocess来防止任务管理器结束进程

Delphi 系统对话框（如浏览目录）被隐藏到主窗体后面造成程序无法操作的临时处理方式

Delphi savelog 日志

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

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