Max. 3 Nachkommastellen

[himitsu]

Zitat von Dust Signs:

Formatier doch einfach die Zahl mit drei Nachkommastellen und entferne bei Bedarf die Nullen am Ende

Dust Signs

und nicht das Komma vergessen zu entfernen, falls danach alle Nullen weg sind

Delphi-Quellcode:

Function MyFormat(f: Extended; Precession: Integer): String;
  Begin
    Result := Format('%.*n', [Precession, f])
    While Result[Length(Result)] = '0' do Delete(Result, Length(Result), 1);
    If Result[Length(Result)] = DecimalSeparator Then Delete(Result, Length(Result), 1);
  End;

[edit]

Delphi-Quellcode:

Function MyFormat(f: Extended; Precession: Byte; Width: Byte = 0): String;
  Begin
    Result := Format('%*.*n', [Width, Precession, f]);
    If Precession > 0 Then Begin
      While Result[Length(Result)] = '0' do Delete(Result, Length(Result), 1);
      If Result[Length(Result)] = DecimalSeparator Then Delete(Result, Length(Result), 1);
    End;
  End;