Delphi OpenDialog使用方法

本文整理自网络，侵删。

 
var
  OpenDlg: TOpenDialog;
  strFileName: string;
begin
  OpenDlg := TOpenDialog.Create(nil);
  try
    OpenDlg.Filter := '协议文件(*.EXE)|*.EXE|全部文件(*.*)|*.*';
    OpenDlg.DefaultExt := '*.EXE';
    if OpenDlg.Execute then
    begin
      strFileName := Trim(OpenDlg.FileName);
      if strFileName <> '' then
      begin
        edtProtocolApplication.Text := strFileName;
      end;
    end;
  finally
    FreeAndNil(OpenDlg);
  end;
end;

 

相关阅读 >>

Delphi 中 image 控件加载bmp、jpg、gif、png等图片的办法

Delphi string.split 按照任意字符串分割语句

Delphi 判断表字段是否存在

Delphi readln 读取一行文本

Delphi 大小排序算法代码

Delphi 莫名奇妙的错误 Delphi is not a valid integer value

Delphi xe将图标和图像添加为资源

Delphi 判断 文本文件 utf-8 bom头

Delphi 限制tedit控件只能输入数字,小数点和负号

Delphi 比较俩组ip地址是否一样

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

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