FUNCTION NumToSingle LPARAMETER tnNumber DECLARE RtlMoveMemory IN WIN32API AS RtlCopyDbl ; STRING @DestString, ; SINGLE @pVoidSource, ; INTEGER nLength LOCAL lcString lcString = SPACE(4) =RtlCopyDbl(@lcString, tnNumber,4) RETURN lcString>A million tanks.
FUNCTION ConvertSINGLEToVFPNum >>LPARAMETER tcSingle >>* tcSingle is a 4 byte representation contained in a VFP string >>DECLARE RtlMoveMemory IN WIN32API AS RtlCopyDbl ; >> SINGLE @DestNumeric, ; >> STRING @pVoidSource, ; >> INTEGER nLength >>LOCAL lnNum >>lnNum = 0.000000000000000 >>=RtlCopyDbl(@lnNum, tcSingle, 4) >>RETURN lnNum