Wenn ihr alles immer so kurz wie möglich haben wollt, bitte:
Delphi-Quellcode:
function Formatieren(KB: Extended): String;
const Genauigkeit = 1000;
begin
if KB >= 0 then result := Floattostr(KB)+ ' ' + 'KiloByte';
if KB > 1023 then result := Floattostr(round((KB / 1024) * Genauigkeit)/Genauigkeit) +' ' + 'MegaByte';
if KB > 1048575 then result := Floattostr(round((KB / 1048576) * Genauigkeit)/Genauigkeit) +' ' + 'GigaByte';
if KB > 1073741823 then result := Floattostr(round((KB / 1073741824) * Genauigkeit)/Genauigkeit) +' ' + 'TeraByte';
if KB > 1099511627775 then result := Floattostr(round((KB / 1099511627776) * Genauigkeit)/Genauigkeit) +' ' + 'PetaByte';
if KB > 1125899906842619 then result := Floattostr(round((KB / 1125899906842620) * Genauigkeit)/Genauigkeit) +' ' + 'ExaByte';
end;