Functions.Real82Bin 方法 |
命名空间: XSharp.Core
1FUNCTION Compressed() 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 FWrite3(nh, Real82Bin(123456.789), 8) 8 FWrite3(nh, Real82Bin(12 ^ 6), 8) 9 FWrite3(nh, Real82Bin(4566.969), 8) 10 FClose(nh) 11 lSuccess := TRUE 12 ELSE 13 ? DOSErrString(siError) 14 ENDIF 15 RETURN lSuccess