Forum: Object-Pascal / Delphi-Language
by Uwe Raabe,
28. Jul 2018
Würde uns doch nicht im Traum einfallen 8-)
Forum: Object-Pascal / Delphi-Language
by Uwe Raabe,
28. Jul 2018
Ich meine sowas:
var
_size: Extended;
orgMode: TRoundingMode;
begin
_size := 1.0957031;
orgMode := SetRoundMode(rmDown);
try
Assert(FormatFloat('0.##', _size, TFormatSettings.Invariant) = '1.09', 'Abrunden klappt nicht!');
Forum: Object-Pascal / Delphi-Language
by Uwe Raabe,
28. Jul 2018
Kannst du mal den Code zeigen, mit dem das funktioniert?
Ich würde das explizit ausprogrammieren:
if <mit Punkt> then begin
// sprachinvariant, immer mit Punkt
fs := TFormatSettings.Invariant;
end
else begin
Forum: Object-Pascal / Delphi-Language
by Uwe Raabe,
27. Jul 2018
Das hast du aber nur gelesen, nicht probiert, oder? Das gilt nämlich nur für die globale Instanz FormatSettings, aber nicht für deine selbst erzeugte fs.
Forum: Object-Pascal / Delphi-Language
by Uwe Raabe,
27. Jul 2018
Mit Format geht das wohl nicht, wohl aber mit FormatFloat:
result := Format('%s %s' );