接口单元 - 单位

名称

目的

参数

返回值

例子

unitsConvert

将某一特定单位的数值转换为另一单位

1: REAL: 原始单位的数值

2: UNIT_Enum: 原始单位

3: REAL: 要求单位的计算值

4: UNIT_Enum: 要求的单位

UnitsErrorEnum: 错误状态

uses @units;

var

r, rSource, rDest:REAL;

u, uSource, uDest:UNIT_Enum;

str,strSource, strDest:string;

d:DIM_Enum;

v:variant;

begin

rSource:=7200;

uSource:=UNIT_kg_h;

uDest:=UNIT_t_h;

if (unitsConvert(rSource, uSource, rDest, uDest) = UnitsErrorOK) then

begin

strSource:=unitsGetTextFromUnit(uSource);

strDest:=unitsGetTextFromUnit(uDest);

println (rSource," ",strSource," are ",rDest," ",strDest);

end;

d:=unitsGetDim(Sun.DNI);

u:=unitsGetDefaultUnit(d);

str:=unitsGetTextFromUnit(u);

println (str);

d:=unitsGetDimFromUnit(UNIT_kg_h);

u:=unitsGetDefaultUnit(d);

str:=unitsGetTextFromUnit(u);

println (str);

u:=unitsGetUnitFromText("mbar");

str:=unitsGetTextFromUnit(u);

println (str);

if (unitsGetValueWithUnit(SUN.DNI, v, UNIT_W_m2, false)=UnitsErrorOK) then

begin

str:=unitsGetTextFromUnit(u);

println (v.rval);

end;

u:=unitsGetVisibleUnit(SUN.DNI, false);

str:=unitsGetTextFromUnit(u);

println (str);

if (unitsSetValueWithUnit(50.0, UNIT_mbar, Start_value_2.P)=UnitsErrorOK) then

begin

println (Start_value_2.P);

end;

if (unitsSetVisibleUnit(Start_value_2.P, UNIT_mbar)=UnitsErrorOK) then

begin

u:=unitsGetVisibleUnit(Start_value_2.P, false);

str:=unitsGetTextFromUnit(u);

println (str);

u:=unitsGetVisibleUnit(Start_value_2.P, true);

str:=unitsGetTextFromUnit(u);

println (str);

end;

end.

unitsFromSI

将 Ebsilon 标准 SI 单位的数值转换为要求的单位

1: REAL: SI 单位中的数值

2: UNIT_Enum: 目标单位

3: REAL: 错误时的返回值（默认值为 -1000）。

unitsGetDefaultUnit

检索一个尺寸（度量）的默认单位。

1: DIM_Enum: 指定的尺寸

2: UnitSystemEnum: 要使用的单位系统。这个参数是可选的。如果省略，将使用 Ebsilon 的默认设置（SI 单位系统）。

UNIT_Enum: 要求的单位

unitsGetDim

得到一个 Ebsilon 变量的尺寸

1: ebsVar: 要考虑的 Ebsilon 变量

DIM_Enum: 要求的尺寸

unitsGetDimFromUnit

检索到指定的单位的尺寸。

1: UNIT_Enum: 指定的单位

DIM_Enum: 要求的尺寸

unitsGetTextFromUnit

检索指定的单位的文本（作为字符串）

1: UNIT_Enum: 指定的单位

STRING: 文本

unitsGetUnitFromText

检索指定文本的单位

1: STRING: 指定的文本

UNIT_Enum: 检索到的单位

unitsGetValueWithUnit

检索指定 Ebsilon 变量的值和单位

1: ebsVar: 考虑的 Ebsilon 变量

2: variant: 要求的值

3: UNIT_Enum: 要求的单位

4: BOOLEAN: 如果 Ebsilon 值是一个标志，这个参数决定了是否

true: 该标志被检索为文本

false: 该标志被检索为数字

UnitsErrorEnum: 错误状态

unitsGetVisibleUnit

检索指定 Ebsilon 值的单位

1: ebsVar

2: BOOLEAN:
false: 得到存储在组件中的单位（与显示设置无关）

true: 得到显示的单位

UNIT_Enum:
检索到的单位

unitsSetValueWithUnit

设置一个 Ebsilon 变量到一个特定的值，包括单位

1: REAL: 要使用的值

2: UNIT_Enum: 要使用的单位

3: ebsVar: 要修改的 Ebsilon 变量

UnitsErrorEnum: 错误状态

unitsSetVisibleUnit

改变存储在组件中的单位

1: ebsVar: 应被修改的 Ebsilon 变量

2: UNIT_Enum: 要使用的单位

UnitsErrorEnum: 错误状态

unitsToSI

1: REAL: 指定的单位的值

2: UNIT_Enum: 指定的单位

3: REAL: 错误时的返回值（默认值为 -1000）。