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 shellexecute多种用法

Delphi以鼠标为中心缩放图片以及拖动（采用区域抠图拉伸的方式）

Delphi image 直接加载资源文件

Delphi fmx调用jar里的java类init方法

Delphi的几种类型转换

Delphi 在windows平台下实现进程隐藏

Delphi 用firedac获取 sql server错误文本信息

Delphi弹出信息框大全

Delphi中destroy, free, freeandnil, release用法和区别

Delphi10.2.3解决的一个json问题

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

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