Man könnte natürlich statt dem uralten
Str auch einfach das neuere
Format nutzen.
Dort kann man die entsprechenden Werte der Formatparameter durch ein * ersetzen und dieses dann als Parameter mit übergeben.
Delphi-Quellcode:
Results := Format('%.*n', [Floater, StrToFloat(EditFrom.Text) * (ValueFrom / ValueTo)]);
///////////////////////////////////////////////////////
Rounded := StrToFloat(EditFrom.Text) * (ValueFrom / ValueTo);
Results := Format('%.*n', [Floater, Rounded]);
Rounded := StrToFloat(EditFrom.Text) * (ValueFrom / ValueTo);
Str(Rounded::Floater, Results);
///////////////////////////////////////////////////////
Rounded := StrToFloat(EditFrom.Text) * (ValueFrom / ValueTo);
Results := Format('%*.*n', [0, Floater, Rounded]);
Rounded := StrToFloat(EditFrom.Text) * (ValueFrom / ValueTo);
Str(Rounded:0:Floater, Results);