Jak wyświetlić binarnie liczbę typu Double?

0

Mam pytanko.......
Jak wyświetlić np. przez ShowMessage() wartość binarną zmiennej typu double ?

1

Co masz przez to na myśli?
W najprostszym wydaniu pewnie coś w stylu:

Function DoubleToBinary(var Value: Double): String;
Var I: uint8;
Begin
 Result := ''; // można by też bawić się z SetLength(Result, ...) i pisaniem po indeksach, ale zakładam, że nie zamierzasz wywoływać tej procedury miliony razy na sekundę

 For I := 0 To sizeof(Value)-1 Do
  Result += IntToBin(PByte(@Value+I))+' ';
End;

1 użytkowników online, w tym zalogowanych: 0, gości: 1