Killogramm, Gramm und milligram

[stoxx]

hatten wir doch vor kurzem schonmal solche Umrechnungen:

Delphi-Quellcode:

function xFloatToSym(Value : Extended) : String; 
const 
  S_UNITS = 'afpnµm kMGTP'; 

var Wert: Extended; 
    Einheit : Integer; 
begin 
wert := Value; 
Einheit := 7; 
while ( wert < 1 ) and (Einheit > 1) do begin 
  Wert := Wert * 1000; 
  dec(Einheit); 
end; 

while (Wert >= 1000) and (Einheit < 12) do begin 
  Wert := Wert / 1000; 
  inc(Einheit) 
end; 
Result := Format('%g%s', [Wert, S_Units[Einheit]]); 

end; // xFloatToSym

http://www.delphipraxis.net/internal...729&highlight=