我想问下是通过什么函数把opendialog所显示的文件名给读出来的
例如 table1.fieldbyname('filename').asstring:=opendialog1.**还有就是如何让access里存储的ole对象(另有字段为文件名的),让savedialog默认的保存文件名为ole对象的文件名谢谢各位来看
例如 table1.fieldbyname('filename').asstring:=opendialog1.**还有就是如何让access里存储的ole对象(另有字段为文件名的),让savedialog默认的保存文件名为ole对象的文件名谢谢各位来看
解决方案 »
- IGE源码 修改版权的 加密的源码怎么处理??????急!
- delphi盒子上的东东都下载不了了,怎么回事?
- delphi 单击form 中的按钮 button2 实现窗口关闭,如下代码 怎么老是报错 ?
- 关于捕获数据连接异常的问题!
- "运行时错误'429':ActiveX部件不能创建对象"是怎么回事,谢谢.
- dephi6.0的基本问题
- 请问各位大哥
- 报表问题。实现把数据逐行累计放于后面一个字段。怎么实现。懂的朋友快来啊!!
- ADO , BDE 你平时用哪个?
- delpi調用BPL方式求幫助
- imageen控件,我用框选择了一部分,然后怎样将选择的部分保存到一个文件中
- delphi初学者,access数据库中的表tabel1怎么在dbgrid中显示呢?
if OpenDialog1.Execute then
file_name:=OpenDialog1.FileName;
except
end;
try
if OpenDialog1.Execute then
file_name:=ExtractFilePath(OpenDialog1.FileName);
except
end;
if OpenDialog1.Execute then
file_name:=ExtractFilename(OpenDialog1.FileName);
except
end;
iname:=OpenDialog1.FileName;
iname:=copy(iname,length(ExtractFilePath(OpenDialog1.FileName))+1,(length(iname)-length(ExtractFilePath(OpenDialog1.FileName))));解决的
if OpenDialog1.Execute then
memo1.Lines.add(ExtractFilename(OpenDialog1.FileName));
except
end;
他写的没错啊。你放到个button里面看看。
估计是哪个引用单元里还有一个ExtractFileName
楼主用
SysUtils.ExtractFileName(OpenDialog1.FileName);这个试下应该没问题了
我用的delphi6,为什么我使用file_name:=ExtractFilename(OpenDialog1.FileName);的时候程序会提示:not enough actual parameters,FILENAMES是用的string型------------------------------------------------------------------(传说中的分割线)估计是哪个引用单元里还有一个ExtractFileName
楼主用
SysUtils.ExtractFileName(OpenDialog1.FileName);这个试下应该没问题了