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: Int64 := TO_LINT( _Ulint ); PropertyDataType.Float, PropertyDataType.Double: Int64 := TO_LINT( _lReal ); PropertyDataType.String_, PropertyDataType.Text: Int64 := TO_LINT( _wString ); ELSE Int64 := 0; END_CASE |