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 暴力搜索api

Delphi 检测url地址是否有效

Delphi中stringgrid删除行

Delphi研究之驱动开发篇(一)--实现原理

Delphixe edit限制只能输入数字

Delphi xe7里面 sharedactivitycontext怎么提示错误?

Delphi 更改窗体为顶层窗体不闪烁

Delphi xe 编译开关-一套代码不同平台编译

indy tidtcpclient 在网络掉线时的处理方法

Delphi获取宽带ip

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...