1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
var
D: Double;
I: Integer;
FS: TFormatSettings;
begin
FS := TFormatSettings.Create();
FS.DecimalSeparator := '.';
D := StrToFloat('0.52', FS);
ShowMessage(FloatToStr(D));
ShowMessage(D.ToString());
I := Trunc(D); // troncature explicite
ShowMessage(FloatToStr(I));
FS.DecimalSeparator := ',';
ShowMessage('FloatToStr(StrToFloat(''0,54'', FS)) = '+ FloatToStr(StrToFloat('0,54', FS)));
ShowMessage('StrToFloat(''0,54'', FS).ToStr = '+ StrToFloat('0,54', FS).ToString);
ShowMessage('((''0,54'').ToDouble()).ToString() = '+ (('0,54').ToDouble()).ToString());
ShowMessage('(string.ToDouble(''0,54'')).ToString() = '+ (string.ToDouble('0,54')).ToString()); |
Partager