use the JVCL’s TJvXxxAppStorage to store float values as strings while controlling the decimal separator…
Posted by jpluimers on 2019/10/24
For my link archive: [WayBack] Is there a way to use the JVCL’s TJvXxxAppStorage to store float values as strings (e.g. “10.152”) rather than hex dumps and also control the decimal separator… – Thomas Mueller (dummzeuch) – Google+ with a solution by Achim Kalwa:
+Thomas Mueller You may try this:
type TMyStorage = class(TJvAppRegistryStorage) protected procedure DoWriteFloat(const Path: string; Value: Extended); override; end; TJvAppRegistryStorage = class(TMyStorage); ... Implementation { TMyStorage } procedure TMyStorage.DoWriteFloat(const Path: String; Value: Extended); var SValue : string; FS : TFormatSettings; begin FS := TFormatSettings.Create; FS.DecimalSeparator := '.'; FS.ThousandSeparator := #0; SValue := FloatToStr(Value, FS); DoWriteString(Path, SValue); end;And you need to set
StorageOptions.FloatAsString := False;
–jeroen
The Wiert Corner - irregular stream of stuff 
Leave a comment