如何得到用opendialog打开的文件的路径

Question

var s:string;
begin
 s:=extractfiledir(opendialog1.filename); //s即为所求
end;

Answer 1

if Opendialog1.Execute then
  Edit1.Text := ExtractFilePath(Opendialog1.FileName);相关函数还有ExtractFileDir、ExtractFileExt等，自己查帮助。

Answer 2

strPath := ExtractFileName(OpenDialog.FileName);

Answer 3

    od是OpenDialog,longdir获得路径  
    i:=length(od.filename);
    while od.filename[i]<>'\' do
    i:=i-1;
    longdir:=copy(od.filename,1,i);

Answer 4

var
  name:string;
procedure
  name:=extractfilepath(opendialog1.filename);
end; 
end;