Zitat von
Dust Signs:
Formatier doch einfach die Zahl mit drei Nachkommastellen und entferne bei Bedarf die Nullen am Ende
Stimmt!
Erstmal mit
Result:= Format('%0.3f', [AValue]);
auf 3 Nachkommastellen aufbohren, dann
Delphi-Quellcode:
while (Length(Result) > 1) and
(Copy(Result, Length(Result), 1) = '0') do
Delete(Result, Length(Result), 1);
alle hinteren Nullen entfernen und ggf. noch
Delphi-Quellcode:
if (Copy(Result, Length(Result), 1) = DecimalSeparator) then
Delete(Result, Length(Result), 1);
den DecimalSeparator entfernen.
So bleibt dann bei 0,000 auch nur die 0 vor dem Komma stehen.
Danke!
