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 <> WSTRING_TO_ULINT( String_ ) THEN THIS^._NotifyThem := TRUE; END_IF _uLint := WSTRING_TO_ULINT( String_ ); PropertyDataType.Float, PropertyDataType.Double: IF _lReal <> WSTRING_TO_LREAL( String_ ) THEN _lReal := WSTRING_TO_LREAL( String_ ); PropertyDataType.String_, PropertyDataType.Text: IF _wString <> String_ THEN _wString := String_ ; ELSE END_CASE |