Delphi OpenTextFileDialog用法

本文整理自网络，侵删。

 
var D: TOpenTextFileDialog;
    S: TStringList;
begin
    D := TOpenTextFileDialog.Create(nil);
    try
      D.Title := 'Import from File';
      D.Filter := 'Text File|*.txt|All Files|*';

      if D.Execute then
      begin
          S := TStringList.Create;
          try
            S.LoadFromFile(D.FileName, D.Encodings.Objects[D.EncodingIndex] as TEncoding);

            M.SelText := S.Text;
          finally
            S.Free;
          end;
      end;

    finally
      D.Free;
    end;
 

相关阅读 >>

Delphi 获取临时文件夹路径

Delphi 控制台程序获取系统信息

Delphi 防局域网控制网速代码

Delphi 脉搏波9808血压计读取测试程序

Delphi firemonkey 学习笔记 �c tpopup 控件的使用

Delphi里formatfloat的用法

Delphi 2010下使用sqlitesimpleDelphi连接sqlite数据库及中文乱码问题的解决

Delphi 字符串加密解密(不支持中文)

Delphi tfilestream和tmemorystream分别读取、创建、合并文件

Delphi 用wininet 单元实现 post提交数据

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

转载请注明出处：木庄网络博客 » Delphi OpenTextFileDialog用法