如何在openDialog中分别取得文件路径和文件名！（在线等）

Question

快救我

Answer 1

ExpandFileName() 返回文件的全路径(含驱动器、路径) 
ExtractFileExt() 从文件名中抽取扩展名 
ExtractFileName() 从文件名中抽取不含路径的文件名 
ExtractFilePath() 从文件名中抽取路径名 
ExtractFileDir() 从文件名中抽取目录名 
ExtractFileDrive() 从文件名中抽取驱动器名 
ExpandUNCFileName() 返回含有网络驱动器的文件全路径 
ExtractRelativePath() 从文件名中抽取相对路径信息 用OpenDialog.FileName做参数

Answer 2

 ChangeFileExt('FileName','') ; //返回不含扩展名的文件名应该全了

Answer 3

If OpenDialog1.Execute then
begin
  Path:=ExtractFilePath(OpenDialog1.FileName);
  fn:=ExtractFileName(OpenDialog1.FileName);
end;