Functions.DW2Bin 方法 |
命名空间: XSharp.Core
1FUNCTION RecordMemory() AS LOGIC 2 LOCAL nh 3 LOCAL lSuccess := FALSE AS LOGIC 4 nh := FOpen2("debug.doc", FO_READWRITE) 5 // 假设 debug.doc 文件已存在 6 IF nh != F_ERROR 7 FWrite3(nh, DW2Bin(Memory(1)), 4) 8 FWrite3(nh, DW2Bin(Memory(2)), 4) 9 FWrite3(nh, DW2Bin(Memory(3)), 4) 10 FClose(nh) 11 lSuccess := TRUE 12 ELSE 13 ? "打开 debug.doc 时发生错误" 14 FError() 15 ENDIF 16 RETURN lSuccess