学习delphi编程先用到了组件OpenDialog
首先是通过OpenDialog组件取文件名称、路径
首先建立form
使用的组件如下图
然后在按钮的单击事件添加如下代码
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;
» 转载请注明来源:网络蛀虫小窝 » 《delphi OpenDialog取文件名称、路径》» 本站地址:http://www.gomoth.com
- 您可能感兴趣的相关文章
- * 找到一个读cpu串号的代码,delphi的,记录一下(申明是人家的代码)
- * Delphi中的线程类的解释
- * Delphi实现操作Foxpro的dbf文件,并导出整合实现txt和dbf互相转换
- * delphi中得到文件的大小
- * delphi里面控制Edit只能输入数字
- * Delphi 格式化函数format的用法
标签: delphi