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 获取本地网络连接

Delphi 把文件锁定到任务栏

Delphi 多线程（tthread类的实现）实例

Delphi 如何产生输出一个变形的图形及文字

Delphi如何简单取得后缀名

Delphi 捕捉异常:try..except..end

Delphi暴力关机代码

Delphi edit控制字居中，居左，居右

Delphi 采用 tidhttp 访问 https 的网站，采用 tidtcpclient 访问 https 的网站

Delphi xe5 android listview

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