|
02.10.2017, 14:02:11
#39529391
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
|
|
|
|
День добрый уважаемые.
Ищу способ нестандартного форматирования числа, но напоролся на проблему преобразования через StrToFloat и FormatFloat .
-Очень сильно страдает точность (особенно в Single теряется разряд в целой части что недопустимо).
-Игнорирует пользовательский формат разделителя тысяч, и всегда выводит одинаковый результат
Проверяю на Delphi 10.2 Tokyo, Win10x64
Может подскажете какую альтернативу искать?
Мне нужно преобразовать число с нужным мне (пользовательским) форматированием
Если ли способы из коробки, или придется заморачиваться с велосипедом и собственноручно расталкивать разряды?
Заранее благодарствую.
Пример:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
procedure TForm1.Button1Click(Sender: TObject);
var
vSingle: Single;
vDouble: Double;
vExtended: Extended;
S: string;
FS: TFormatSettings;
begin
FS := TFormatSettings.Create;
FS.ThousandSeparator := '`';
FS.DecimalSeparator := ',';
S := '123456789012345,54321';
vSingle := StrToFloat(S, FS);
vDouble := StrToFloat(S, FS);
vExtended := StrToFloat(S, FS);
Memo1.Lines.Add(S + ' :String');
Memo1.Lines.Add(vSingle.ToString + ' :Single');
Memo1.Lines.Add(vDouble.ToString + ' :Double');
Memo1.Lines.Add(vExtended.ToString + ' :Extended');
Memo1.Lines.Add('--Single---');
S := FormatFloat('#,##0.0000', vSingle, FS);
Memo1.Lines.Add(S);
S := FormatFloat('##,##,##,##0.0000;-##,##,##,##0.0000;0.0000', vSingle, FS);
Memo1.Lines.Add(S);
Memo1.Lines.Add('--Double---');
S := FormatFloat('#,##0.0000', vDouble, FS);
Memo1.Lines.Add(S);
S := FormatFloat('##,##,##,##0.0000;-##,##,##,##0.0000;0.0000', vDouble, FS);
Memo1.Lines.Add(S);
Memo1.Lines.Add('--Extended---');
S := FormatFloat('#,##0.0000', vExtended, FS);
Memo1.Lines.Add(S);
S := FormatFloat('##,##,##,##0.0000;-##,##,##,##0.0000;0.0000', vExtended, FS);
Memo1.Lines.Add(S);
end;
на выходе получаем:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
123456789012345,54321 :String
123456788103168 :Single
123456789012346 :Double
123456789012346 :Extended
--Single---
123`456`788`103`168,0000
123`456`788`103`168,0000
--Double---
123`456`789`012`345,5470
123`456`789`012`345,5470
--Extended---
123`456`789`012`345,5430
123`456`789`012`345,5430
|
|
|
