1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | VAR END_VAR IsGet CASE _dataType OF MetricDataType.Unknown, MetricDataType.Int8, MetricDataType.Int16, MetricDataType.Int32, MetricDataType.Int64, MetricDataType.UInt8, MetricDataType.UInt16, MetricDataType.UInt32, MetricDataType.UInt64, MetricDataType.Boolean, MetricDataType.DateTime: _uLint := TO_ULINT( Boolean ); MetricDataType.Float, MetricDataType.Double: _lReal := TO_LREAL( Boolean ); MetricDataType.String_, MetricDataType.Text, MetricDataType.UUID: _wString := TO_WSTRING( Boolean ); ELSE END_CASE |