Changeset 703 for trunk/ab5.0/ablib/src/basic/function.sbp

Timestamp:

Apr 7, 2009, 9:35:42 PM (15 years ago)

Author:

イグトランス (egtra)

Message:

Imageクラスを追加
(#242)

File:

• trunk/ab5.0/ablib/src/basic/function.sbp (modified) (1 diff)

trunk/ab5.0/ablib/src/basic/function.sbp

@@ -905 +905 @@
 End Function
 
+Function _System_HashFromGUID(ByRef guid As GUID) As Long
+    Dim p = VarPtr(guid) As *DWord
+    _System_HashFromGUID = (p[0] Xor p[1] Xor p[2] Xor p[3]) As Long
+End Function
+
 /*!
 @brief  ObjPtrの逆。ABオブジェクトを指すポインタをObject型へ変換。