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 getprocessisadmin()判断exe是否以管理员身份启动

Delphi idhttp代理设置

Delphi case of

Delphi 下的通配符查找函数

Delphi xe 取得硬盘序列号代码

Delphi intraweb 在iis下发布的web.config

Delphi如何粘贴html格式文本到windows剪切板

Delphi xe android platform uses-permission[1] 权限列表

Delphi ado 连接 excel （附excel各个版本的版本号）

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

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