SaveCadDig := TSaveDialog.Create(nil);
SaveCadDig.Title := '保存CAD路径';
SaveCadDig.DefaultExt := '.dwg';
SaveCadDig.Filter := 'CAD类型(*.dwg,*.dxf)|*.dwg;*.dxf';
if not SaveCadDig.Execute then
Exit;
AFileName := SaveCadDig.FileName;
ExtractFileName(dlgOpenCadFile.FileName) // 获取文件名称
dlgOpenCadFile.FileName // 获取整个文件路径 FilePath
ExtractFileDir(dlgOpenCadFile.FileName); // 获取文件所在目录 例子‘D:/test’
ExtractFilePath(dlgOpenCadFile.FileName); / 获取文件所在目录 例子‘D:/test/’
