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