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 | VAR END_VAR IsGet CASE _dataType OF PropertyDataType.Unknown, PropertyDataType.Int8, PropertyDataType.Int16, PropertyDataType.Int32, PropertyDataType.Int64, PropertyDataType.UInt8, PropertyDataType.UInt16, PropertyDataType.UInt32, PropertyDataType.UInt64, PropertyDataType.Boolean, PropertyDataType.DateTime: IF _uLint <> uliDateTime THEN THIS^._NotifyThem := TRUE; END_IF _uLint := uliDateTime ; PropertyDataType.Float, PropertyDataType.Double: IF _lReal <> TO_LREAL( uliDateTime ) THEN _lReal := TO_LREAL( uliDateTime ); PropertyDataType.String_, PropertyDataType.Text: IF _wString <> TO_WSTRING( uliDateTime ) THEN _wString := TO_WSTRING( uliDateTime ); ELSE END_CASE |