Преобразование числа с плавающей точкой

[Ben_Vaflick]

Доброго времени суток. Такое дело. Есть 3 датчика угловой скорости, по одному на каждую ось. интерфейс рс-485. Через преобразователь рс-485/рс-232 подключены датчики к компу. Ведущий датчик выдает по 50 байт в порт. 2 из которых - это ключ, и по 4 байта на каждый показатель для каждого датчика. Каждый датчик выдает по 4 показателя. итого получается 4*4*3+2=50. Задача раз в минуту открывать порт, ловить ключ, после ключа считывать данные и сохранять в файл в удобочитаемом виде. На деле я электронщик, поэтому дальше, чем считывания с порта и сохранения этих данных в файл, я не дошёл.
Вот пример двух раз считывания:
AA 55 75 A4 CD BB 00 40 C9 41 CE 70 85 45 74 E7 B3 C1
9D 55 5C BC 00 40 CA 41 28 E8 81 45 E1 CE BE C1
0C 71 75 BC 00 40 C9 41 DF 01 B8 45 22 E4 15 40

AA 55 44 6E BB BB 00 40 C9 41 CA 70 85 45 E7 EB B3 C1
F6 56 5E BC 00 C0 C9 41 23 E8 81 45 D0 BF BE C1
D7 59 6B BC 00 00 CA 41 DF 01 B8 45 25 97 15 40
АА и 55 - это ключ. Как мне сделать теперь преобразование этих данных, чтобы в получились обычные десятичные дроби?

[Vapaamies]

Если считать 4 байта с плавающей точкой как совместимые с IEEE, подойдет сопроцессорный тип Single:

type
  TIndicatorValue = packed record
    case Byte of
      0: (AsFloat: Single);
      1: (AsBytes: LongWord);
  end;

  TIndicatorState = array[0..3] of TIndicatorValue;

  T50BytesRec = packed record
    MagicSign: Word;
    IndicatorStates: array[0..2] of TIndicatorState;
  end;

var
  FiftyBytes: T50BytesRec;
begin
  // ReadIndicatorStates(FiftyBytes);
  FiftyBytes.IndicatorStates[0, 0].AsBytes := $BBBB446E; // 44 6E BB BB
  ShowMessage(FloatToStr(FiftyBytes.IndicatorStates[0, 0].AsFloat)); // 0-е значение 0-го датчика
end;