输入请求函数

名称

目的

参数

返回值 

例子 

inputBox

激活一个输入窗口，用户可以在其中输入一个值 

1: STRING: 文本，出现在请求中

2: INTEGER, REAL, CHAR, STRING: 变量，输入的值被储存在其中 

-

inputBox ("Please enter the desired power", rQGen);

messageBox

激活一个信息窗口，用户必须用"OK"确认

1: STRING: 文本，作为信息出现

2: messageBoxTypeEnum

见接口单元系统以及 https://docs.microsoft.com/en-us/windows/desktop/api/winuser/nf-winuser-messagebox

type messageBoxResultEnum = (
 IDOK = 1, IDCANCEL = 2,
 IDABORT = 3, IDRETRY = 4,
 IDIGNORE = 5, IDYES = 6,
 IDNO = 7, IDCLOSE = 8,
 IDHELP = 9, IDTRYAGAIN = 10,
 IDCONTINUE = 11);

messageBox ("Limiting value exceeded");

wizardBox

打开"EbsAssistenten"使用的输入窗口，通过该窗口可以为模型指定七个参数。

1: STRING: 第 1 个参数的描述

2: REAL: 第 1 个参数

3: STRING: 第 2 个参数的描述

4: REAL: 第 2 个参数

5: STRING: 第 3 个参数的描述

6: REAL: 第 3 个参数

7: STRING: 第 4 个参数的描述

8: REAL: 第 4 个参数

9: STRING: 第 5 个参数的描述

10: REAL: 第 5 个参数

11: STRING: 第 6 个参数的描述

12: REAL: 第 6 个参数

13: STRING: 第 7 个参数的描述

14: REAL: 第 7 个参数

BOOLEAN:

true, 如果用户点击了 "OK"

false, 如果用户点击了 "Cancel"

var
  r1,r2,r3,r4,r5,r6,r7:real;

    bOk:boolean;

begin

    r1:=DSP.MEASM;

    r2:=T2.MEASM;

    r3:=P2.MEASM;

    r4:=T1.MEASM;

    r5:=P1.MEASM;

    r6:=1000*  (PKOND.MEASM + PAMB.MEASM);

    r7:=T17.MEASM;

    bOk:=wizardBox ("Live steam mass flow [kg/s]", r1, "Live steam temperature [°C]", r2, "Live steam pressure [bar]", r3,

"Intermediate heating temperature [°C]", r4, "Intermediate heating pressure [bar]", r5,

"Condenser pressure [mbar]", r6, "Cooling water temperature [°C]", r7 );

    if (bOk) then

    begin

        DSP.MEASM:=r1;

        T2.MEASM:=r2;

        P2.MEASM:=r3;

        T1.MEASM:=r4;

        P1.MEASM:=r5;

        PKOND.MEASM:= 0.001*r6 - PAMB.MEASM;

        T17.MEASM:=r7;

        simulate;

     end;

end.

yesNoBox

打开一个决定窗口，用户可以在其中点击 "Yes" 或 "No"

1: STRING: 文本，出现在请求中

BOOLEAN:

true, 如果用户点击了 "Yes"

false, 如果用户点击了 "No"

bContinue:= yesNoBox ("Should the calculation be continued?");

yesNoCancelBox

INTEGER:

1, 如果用户点击了 "Yes"

0, 如果用户点击了 "No"

-1, 如果用户点击了 "Cancel"

bContinue:= yesNoCancelBox ("Should the calculation be continued?");