Das hatte ich ja zuerst, da kamen ja exponenten raus
EDIT: ich hab mir jetzt diese kleine funktion geschrieben:
Delphi-Quellcode:
function erasezeros(s: string): string;
var i: integer;
endpos: integer;
begin
if pos('.',s) = 0 then
begin
result := s;
exit;
end;
for i := length(s) downto pos('.',s) do
begin
if s[i] <> '0' then
begin
endpos := i;
break;
end;
end;
result := copy(s,1,endpos);
if ansilastchar(result) = '.' then
setlength(result,length(result)-1);
end;
Funktioniert, aber wenn jemand eine bessere lösung findet, darf er sie ruhig verraten
