Runden ohne nachfolgende Nullen

[hanvas]

Zitat von Rollo62:

Hallo zusammen,

Wie würdet Ihr das machen ?

Rollo

Code:

function makeStr(d : Double) : String;
var l,c : Integer;
begin
 result := IntToStr(Trunc(d * 1000));
 l      := Length(result); 
 c      := 0;
 while (result[l-c] = '0') and 
       (c<3) do
             c := c + 1;
 if (c>0) then // bis ende löschen
     Delete(result,l-c,l);
 if (c<3) then 
     insert(',',result,l-c); 
end;

ungetestet

cu Ha-Jö