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 26 27 28 29 30 | 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: IF _uLint <> TO_ULINT( Int16 ) THEN THIS^._NotifyThem := TRUE; END_IF _uLint := TO_ULINT( Int16 ); MetricDataType.Float, MetricDataType.Double: IF _lReal <> TO_LREAL( Int16 ) THEN _lReal := TO_LREAL( Int16 ); MetricDataType.String_, MetricDataType.Text, MetricDataType.UUID: IF _wString <> TO_WSTRING( Int16 ) THEN _wString := TO_WSTRING( Int16 ); ELSE END_CASE |