InputDialog
简述
输入对话框,生成类似于函数、模型运行的时候自动出现的参数输入对话框。如果取消了,返回为假,否则为真。
InputDialog(Title:String;Hint:String;Define:TableArray;Var Result:Array):Boolean;
名称 | 类型 | 说明 |
---|
Title | String | 字符串类型。对话框的标题。 |
Hint | String | 字符串类型。对话框的提示信息。 |
Define | TableArray | 对话框的定义,为一个表结构类型,其中包括四个字段:
字段 |
含义 |
Name |
表示输入项目的标识,用来取返回值 |
Comment |
表示输入项目的显示信息。 |
Type |
表示输入项目的数据类别,类别见参考下的数据类别函数。 |
Value |
表示输入项目的默认值。 |
|
Result | Array | 存贮返回每个字段的值,结构为以字段名为下表字段返回值为值的一维数组。字段名为Define里定义的字段Name的值 |
返回 | Boolean | 布尔类型,如果取消了,返回为假,否则为真。 |
Define:=array();
define[0]['Name']:='Years';
define[0]['Comment']:='年数';
define[0]['Type']:=rdo2 uiInteger();
define[0]['Value']:=10;
define[1]['Name']:='NeedFunds';
define[1]['Comment']:='是否需要基金';
define[1]['Type']:=rdo2 uiBoolean();
define[1]['Value']:=’True’;
define[2]['Name']:='Name';
define[2]['Comment']:='输入名称';
define[2]['Type']:=rdo2 uiString();
define[2]['Value']:='天软';
define[3]['Name']:='GenDate';
define[3]['Comment']:='生成日期';
define[3]['Type']:=rdo2 uiDate();
define[3]['Value']:=now();
if rdo2 InputDialog('测试输入','测试',define,Result) then
rdo2 ShowValue('测试显示',Result,False);
显示如下:
当选择了确认之后,ShowValue的结果显示出来如下:
