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 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 | (* CASE UDINT_TO_INT(AnyTypeClass) OF IBaseLibrary.TypeClass.TYPE_BOOL : F_AnyTypeClassToString := 'BOOL'; IBaseLibrary.TypeClass.TYPE_BIT : F_AnyTypeClassToString := 'BIT'; IBaseLibrary.TypeClass.TYPE_BYTE : F_AnyTypeClassToString := 'BYTE'; IBaseLibrary.TypeClass.TYPE_WORD : F_AnyTypeClassToString := 'WORD'; IBaseLibrary.TypeClass.TYPE_DWORD : F_AnyTypeClassToString := 'DWORD'; IBaseLibrary.TypeClass.TYPE_LWORD : F_AnyTypeClassToString := 'LWORD'; IBaseLibrary.TypeClass.TYPE_SINT : F_AnyTypeClassToString := 'SINT'; IBaseLibrary.TypeClass.TYPE_INT : F_AnyTypeClassToString := 'INT'; IBaseLibrary.TypeClass.TYPE_DINT : F_AnyTypeClassToString := 'DINT'; IBaseLibrary.TypeClass.TYPE_LINT : F_AnyTypeClassToString := 'LINT'; IBaseLibrary.TypeClass.TYPE_USINT : F_AnyTypeClassToString := 'USINT'; IBaseLibrary.TypeClass.TYPE_UINT : F_AnyTypeClassToString := 'UINT'; IBaseLibrary.TypeClass.TYPE_UDINT : F_AnyTypeClassToString := 'UDINT'; IBaseLibrary.TypeClass.TYPE_ULINT : F_AnyTypeClassToString := 'ULINT'; IBaseLibrary.TypeClass.TYPE_REAL : F_AnyTypeClassToString := 'REAL'; IBaseLibrary.TypeClass.TYPE_LREAL : F_AnyTypeClassToString := 'LREAL'; IBaseLibrary.TypeClass.TYPE_STRING : F_AnyTypeClassToString := 'STRING'; IBaseLibrary.TypeClass.TYPE_WSTRING : F_AnyTypeClassToString := 'WSTRING'; IBaseLibrary.TypeClass.TYPE_TIME : F_AnyTypeClassToString := 'TIME'; IBaseLibrary.TypeClass.TYPE_DATE : F_AnyTypeClassToString := 'DATE'; IBaseLibrary.TypeClass.TYPE_DATEANDTIME : F_AnyTypeClassToString := 'DATEANDTIME'; IBaseLibrary.TypeClass.TYPE_TIMEOFDAY : F_AnyTypeClassToString := 'TIMEOFDAY'; IBaseLibrary.TypeClass.TYPE_POINTER : F_AnyTypeClassToString := 'POINTER'; IBaseLibrary.TypeClass.TYPE_REFERENCE : F_AnyTypeClassToString := 'REFERENCE'; IBaseLibrary.TypeClass.TYPE_SUBRANGE : F_AnyTypeClassToString := 'SUBRANGE'; IBaseLibrary.TypeClass.TYPE_ENUM : F_AnyTypeClassToString := 'ENUM'; IBaseLibrary.TypeClass.TYPE_ARRAY : F_AnyTypeClassToString := 'ARRAY'; IBaseLibrary.TypeClass.TYPE_PARAMS : F_AnyTypeClassToString := 'PARAMS'; IBaseLibrary.TypeClass.TYPE_USERDEF : F_AnyTypeClassToString := 'USERDEF'; IBaseLibrary.TypeClass.TYPE_NONE : F_AnyTypeClassToString := 'NONE'; IBaseLibrary.TypeClass.TYPE_ANY : F_AnyTypeClassToString := 'ANY'; IBaseLibrary.TypeClass.TYPE_ANYBIT : F_AnyTypeClassToString := 'ANYBIT'; IBaseLibrary.TypeClass.TYPE_ANYDATE : F_AnyTypeClassToString := 'ANYDATE'; IBaseLibrary.TypeClass.TYPE_ANYINT : F_AnyTypeClassToString := 'ANYINT'; IBaseLibrary.TypeClass.TYPE_ANYNUM : F_AnyTypeClassToString := 'ANYNUM'; IBaseLibrary.TypeClass.TYPE_ANYREAL : F_AnyTypeClassToString := 'ANYREAL'; IBaseLibrary.TypeClass.TYPE_LAZY : F_AnyTypeClassToString := 'LAZY'; IBaseLibrary.TypeClass.TYPE_LTIME : F_AnyTypeClassToString := 'LTIME'; IBaseLibrary.TypeClass.TYPE_BITCONST : F_AnyTypeClassToString := 'BITCONST'; IBaseLibrary.TypeClass.TYPE_INTERFACE : F_AnyTypeClassToString := 'INTERFACE'; ELSE F_AnyTypeClassToString := 'UNKNOWN'; END_CASE |