Чтение файла с данными типа real. Тип real в билдере или как его "обойти"?

double Fdat;
 
struct STR
       {
        ...
 
       } rec
 
read( Fdat,(char *)&rec,sizeof(rec));

read( Fdat,(char *)&rec,sizeof(rec)-(sizeof(float))/2); // типа отнимаем 2 лишних байта

char real48[6];

double convert_real_to_double(char real48[]);

#include <cmath>
 
double convert_real_to_double(char real48[])
{
    double exponentbase = 129;
    double exponent = real48[0] - exponentbase; // The exponent is offset so deduct the base.
     
    // Now Calculate the mantissa
    double mantissa = 0.0;
    double value = 1.0;
    // For Each Byte.
    for (int i = 5; i >= 1; i--)
    {
        int startbit = 7;
        if (i == 5)
        { startbit = 6; } //skip the sign bit.
     
        //For Each Bit
        for (int j = startbit; j >= 0; j--)
        {
            value = value / 2;// Each bit is worth half the next bit but we're going backwards.
            if (((real48[i] >> j) & 1) == 1) //if this bit is set.
            {
                mantissa += value; // add the value.
            }
     
        }
    }
     
    if (mantissa == 1.0 && real48[0] == 0) // Test for null value
        return 0.0;
     
    if ((real48[5] & 0x80) == 1) // Sign bit check
        mantissa = -mantissa;
     
    return (1 + mantissa) * pow(2.0, exponent);
}

read( Fdat,(char *)&rec,sizeof(rec));
data.PutElement(convert_real_to_double(rec.Progr[i]), i, j);

char real48[6];

convert_real_to_double(rec.real48)