PromptForFileName
简述
显示文件打开（保存）对话框。如果选择文件并确定则返回真，否则返回假。
PromptForFileName(Var FileName:String;[Filter;DefaultExt;Title;InitialDir=’’:String;SaveDialog:Boolean=False]):Boolean;
| 名称 | 类型 | 说明 |
|---|
| FileName | String | 字符串类型。初始的文件名以及返回的文件名 |
| Filter | String | 字符串类型。文件过滤条件。如'Excelfiles?(*.xls)|*.XLS|TSLfiles?(*.tsl)|*.TSL'，如果同一个选项有多种过滤方法，则使用”|”将其分隔。 |
| DefaultExt | String | 字符串类型。默认的扩展名，不含有”.”号。 |
| Title | String | 字符串类型。对话框的标题栏。 |
| InitialDir | String | 字符串类型。初始的目录。 |
| SaveDialog | Boolean=False | BOOL类型。是否作为文件保存对话框显示。 |
//打开保存文件对话框
rdo2 PromptForFileName(data,'Excelfiles
(*.xls)|*.xlsx|(*.XLS)|TSLfiles (*.tsl)|*.TSL','.xls','保存对话框','C:\\DataStore',1);
return data;
//打开打开文件对话框
rdo2 PromptForFileName(data,'Excelfiles
(*.xls)|*.xlsx|(*.XLS)|TSLfiles (*.tsl)|*.TSL','.xls','打开对话框','C:\\DataStore',0);
return data;