我想问下是通过什么函数把opendialog所显示的文件名给读出来的
例如 table1.fieldbyname('filename').asstring:=opendialog1.**还有就是如何让access里存储的ole对象(另有字段为文件名的),让savedialog默认的保存文件名为ole对象的文件名谢谢各位来看

解决方案 »

  1.   

    这两个控件都有 InitialDir、FileName、DefaultExt等属性,设置以下就行了
      

  2.   

    试过了,不是opendialog1.filename;
      

  3.   

    先opendialog1.execute,然后再opendialog1.filename
      

  4.   

    try
    if OpenDialog1.Execute then
    file_name:=OpenDialog1.FileName;
    except
    end;
      

  5.   

    我用opendialog1.filename;连路径也一起给出来了,怎么才能让路径不出现?
      

  6.   


    try
    if OpenDialog1.Execute then
    file_name:=ExtractFilePath(OpenDialog1.FileName);
    except
    end;
      

  7.   

    try
    if OpenDialog1.Execute then
    file_name:=ExtractFilename(OpenDialog1.FileName);
    except
    end;
      

  8.   

    我用的delphi6,为什么我使用file_name:=ExtractFilename(OpenDialog1.FileName);的时候程序会提示:not enough actual parameters,FILENAMES是用的string型
      

  9.   

    我现在用的是
    iname:=OpenDialog1.FileName;
    iname:=copy(iname,length(ExtractFilePath(OpenDialog1.FileName))+1,(length(iname)-length(ExtractFilePath(OpenDialog1.FileName))));解决的
      

  10.   

    try
      if OpenDialog1.Execute then
        memo1.Lines.add(ExtractFilename(OpenDialog1.FileName));
      except
      end;
    他写的没错啊。你放到个button里面看看。
      

  11.   

    我用的delphi6,为什么我使用file_name:=ExtractFilename(OpenDialog1.FileName);的时候程序会提示:not enough actual parameters,FILENAMES是用的string型
    估计是哪个引用单元里还有一个ExtractFileName
    楼主用
    SysUtils.ExtractFileName(OpenDialog1.FileName);这个试下应该没问题了
      

  12.   

    引: 
       我用的delphi6,为什么我使用file_name:=ExtractFilename(OpenDialog1.FileName);的时候程序会提示:not enough actual parameters,FILENAMES是用的string型------------------------------------------------------------------(传说中的分割线)估计是哪个引用单元里还有一个ExtractFileName
    楼主用
    SysUtils.ExtractFileName(OpenDialog1.FileName);这个试下应该没问题了