delphi OpenDialog取文件名称、路径

学习delphi编程先用到了组件OpenDialog

首先是通过OpenDialog组件取文件名称、路径

首先建立form

使用的组件如下图

delphi-opendialog

delphi-opendialog

然后在按钮的单击事件添加如下代码

with OpenDialog1 do
begin
Filter:=’dbf数据库(*.dbf)|*.dbf’;  //过了只有dbf数据库类型文件
DefaultExt:=’dbf’;
FileName:=”;
Options:=[ofHideReadOnly,ofEnableSizing];
if opendialog1.Execute then
if ofExtensionDifferent in Options then  //如果不是dbf数据库弹出出错提示
messagedlg(‘这不是dbf数据库’,mterror,[mbok],0)
else
edit1.Text:=FileName;
messagedlg(ExtractFilePath(Opendialog1.FileName),mterror,[mbok],0); //取得文件路径   弹出提示对话框显示文件路径
messagedlg(ExtractFileName(Opendialog1.FileName),mterror,[mbok],0);//取得文件名称  弹出提示对话框显示文件名称
end;

 

 » 本站地址:http://www.gomoth.com

标签: