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 7 简单语法

decodedatetime：将一个tdatetime变量拆分成它的日期/时间 部分

Delphi 从url地址中获得文件名

Delphi 如何清空image1

Delphi adoquery连接数据库的查询、插入、删除、修改

8086 汇编指令手册查询

Delphixe4 版本中，已针对移动平台 引入了 arc 模型

Delphi 获取文件大小根据显示gb mb kb b

Delphi 加壳原理与简单实现加壳

Delphi 判断按键状态

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

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