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 PropertyDataType.Unknown, PropertyDataType.Int8, PropertyDataType.Int16, PropertyDataType.Int32, PropertyDataType.Int64, PropertyDataType.UInt8, PropertyDataType.UInt16, PropertyDataType.UInt32, PropertyDataType.UInt64, PropertyDataType.Boolean, PropertyDataType.DateTime: UInt64 := _Ulint ; PropertyDataType.Float, PropertyDataType.Double: UInt64 := TO_ULINT( _lReal ); PropertyDataType.String_, PropertyDataType.Text: UInt64 := TO_ULINT( _wString ); ELSE UInt64 := 0; END_CASE |