Functions.I2Bin 方法 |
命名空间: XSharp.Core
1ptrHandle = FOpen2("sales.dbf", FO_READWRITE) 2// 将最新更新日期转换为整数 3cYear := I2Bin(1990) 4// 使用更高效的 _Chr() 代替 I2Bin(),因为返回值适合一个字节 5cMonth := _Chr(12) 6cDay := _Chr(15) 7// 定位到最新更新的日期 8FSeek(ptrHandle, 1, FS_SET) 9// 仅使用第一个字节写入新的更新日期 10FWrite3(ptrHandle, cYear, 1) 11FWrite3(ptrHandle, cMonth, 1) 12FWrite3(ptrHandle, cDay, 1) 13FClose(ptrHandle)