Changeset 703 for trunk/ab5.0/ablib/src/basic
- Timestamp:
- Apr 7, 2009, 9:35:42 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ab5.0/ablib/src/basic/function.sbp
r634 r703 905 905 End Function 906 906 907 Function _System_HashFromGUID(ByRef guid As GUID) As Long 908 Dim p = VarPtr(guid) As *DWord 909 _System_HashFromGUID = (p[0] Xor p[1] Xor p[2] Xor p[3]) As Long 910 End Function 911 907 912 /*! 908 913 @brief ObjPtrの逆。ABオブジェクトを指すポインタをObject型へ変換。
Note:
See TracChangeset
for help on using the changeset viewer.