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