[ArtIntellAnd]

Привет всем. Как перевести из 16-го числа в дробное десятичное. Например есть число A027AFDF5D984840 из него получаем 49.1903648. Знаю что в C# есть такая функция BitConverter.ToDouble, а как реализовать это на Delphi?

[PS11011010]

Есть функция StrToInt(); Так вот, если в начале строки с числом поставить x или $, то она преобразует шестнадцатиричное в десятичное.

P.S. Сам обалдел, когда узнал

[Aristarh Dark]

P.S. Сам обалдел, когда узнал

А я как лох исходника читал...

[ArtIntellAnd]

Дело в том что strtoint('$AD10') переводит в целое число. Для дроби надо использовать

Код:

procedure TForm1.Button1Click(Sender: TObject);
const
d8: array [0..7] of byte = ($A0,$27,$AF,$DF,$5D,$98,$48,$40);
var
D:double;
begin
  D:=Double(d8);
  showmessage(floattostr(D));
end;