У нас была задача сохранить Double в строку и потом

Question

У нас была задача сохранить Double в строку и потом

восстановить обратно (до точного совпадения побайтно). Не смогли написать. Сделали хранение байтового представления в виде hex строки. Интересная задачка. Может кто то возьмется? :)

#lazarus #programming #russian

0

16.04.2024

12 ответов

57 просмотров

zamtmn

это невыполнимо в десятичной системе

0

7 месяцев назад

Boris Usievich

zamtmn
это невыполнимо в десятичной системе

вполне выполнимо, Вопрос зачем

0

7 месяцев назад

Сергей Данилов Автор вопроса

Boris Usievich
вполне выполнимо, Вопрос зачем

Сохранение данных в текстовый файл и восстановление обратно без потери данных.

0

7 месяцев назад

Boris Usievich

Сергей Данилов
Сохранение данных в текстовый файл и восстановлени...

зачем тут файл? 🤦‍♂️ плюсовые to_char/from_char по стандарту гарантируют точное восстановление.

0

7 месяцев назад

zamtmn

Boris Usievich
вполне выполнимо, Вопрос зачем

да, стормозил, можно

0

7 месяцев назад

Slym

function DoubleToHex(const d:double):string; begin SetLength(result,SizeOf(d)*2); BinToHex(@d,PChar(result),SizeOf(d)); end; function HexToDouble(const str:string):double; begin HexToBin(PChar(str),@result,SizeOf(result)); end;

0

7 месяцев назад

Boris Usievich

Slym
function DoubleToHex(const d:double):string; begin...

Это несомненно гораздо быстрее и проще, чем конвертить в текст.

0

7 месяцев назад

Александр (Rouse_) Багель

Хранить ввиде TExt80Rec а именно отдельно мантису и экспоненту, потом так-же собрать обратно

0

7 месяцев назад

Сергей Данилов Автор вопроса

Slym
function DoubleToHex(const d:double):string; begin...

function DoubleToHexString(const Value: Double): String; begin Result := '$' + IntToHEx(PInt64(@Value)^, 16); end; function HexStringToDouble(const Value: String): Double; begin PInt64(@Result)^ := StrToInt64(Value); end;

0

7 месяцев назад

Slym

Сергей Данилов
function DoubleToHexString(const Value: Double): S...

procedure TForm1.FormCreate(Sender: TObject); var i:integer; d:double; c1,c2:cardinal; begin d:=100.2; c1:=TThread.GetTickCount; for i := 0 to 10000000 do HexToDouble(DoubleToHex(d)); c1:=TThread.GetTickCount-c1; c2:=TThread.GetTickCount; for i := 0 to 10000000 do HexStringToDouble(DoubleToHexString(d)); c2:=TThread.GetTickCount-c2; Caption:=IntToStr(c1)+':'+IntToStr(c2); end;

0

7 месяцев назад

Alexander 👋

https://docwiki.embarcadero.com/Libraries/Alexandria/en/Data.FmtBcd.TBcd

0

7 месяцев назад

Igor · Accepted Answer

Igor

хранить байтовое представление — это единственный способ

0

7 месяцев назад

169 похожих чатов

У нас была задача сохранить Double в строку и потом

12 ответов

Похожие вопросы