取得檔案名稱、更改檔案名稱和去除檔案副檔名

取得檔案名稱：ExtractFileName
EX:file_Name := ExtractFileName(AgOpenDialog1.FileName);

更改檔案名稱：ChangeFileExt
EX:file_Name := ChangeFileExt(A.xls, B.xls);
　　file_Name = B.xls

去除檔案副檔名：
EX:fileName := ChangeFileExt(ExtractFileName(AgOpenDialog1.FileName), '');