Functions.MemByte 方法 |
命名空间: XSharp.RT
1FUNCTION FindChar() 2 LOCAL pszC1 := "ABCDEF" AS PSZ 3 ? MemByte(pszC1, ASC("A"), 6) // 3F37:2788 4 ? MemByte(pszC1, ASC("B"), 6) // 3F37:2789 5 ? MemByte(pszC1, ASC("B"), 1) // 0000:0000 6 // NULL_PTR: ASC("B") 未在 7 // PSZ 的前 "1" 个字符中找到
1FUNCTION FindChar2() 2 LOCAL ptrBuff := MemAlloc(10) AS PTR 3 IF ptrBuff != NULL_PTR 4 // 将 68 写入前 10 个字节 5 MemSet(ptrBuff, 68, 10) 6 // 用 67 覆盖前 5 个字节 7 MemSet(ptrBuff, 67, 5) 8 ? MemByte(ptrBuff, 68, 10) // 3CA7:07DD 9 ? MemByte(ptrBuff, 67, 10) // 3CA7:07D8 10 ENDIF 11 MemFree(ptrBuff)