Functions.MemChr 方法 |
命名空间: XSharp.RT
1FUNCTION FindChar() AS VOID 2 LOCAL pszC1 := "ABCDEF" AS PSZ 3 ? MemChr(pszC1, ASC("A"), 6) // 指针 4 ? MemChr(pszC1, ASC("B"), 6) // 指针 5 ? MemChr(pszC1, ASC("B"), 1) 6 // NULL_PTR: ASC("B") 不在 7 // PSZ 的前 "1" 个字符中
1FUNCTION FindChar2() AS VOID 2 LOCAL ptrBuff := MemAlloc(10) AS PTR 3 IF ptrBuff != NULL_PTR 4 // 在前 10 个字节写入 68 5 MemSet(ptrBuff, 68, 10) 6 // 用 67 覆盖前 5 个字节 7 MemSet(ptrBuff, 67, 5) 8 ? MemChr(ptrBuff, 68, 10) //3CEF:07DD 9 ? MemChr(ptrBuff, 67, 10) //3CEF:07D8 10 ENDIF