SaveDialog 使用

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/’