Forum: Software-Projekte der Mitglieder
by axelf98,
26. Okt 2003
Schön... Aber was ist an Extended so schlimm?
Außerdem könnte man ja auch mal größere Datenmengen anzeigen lassen, in einem Netzwerk z.B.
Forum: Software-Projekte der Mitglieder
by axelf98,
26. Okt 2003
Wenn man z.B. 3232342422 KB hat... Rechne das mal mit einem Integer durch..
Mein Rechner macht so hohe Integer-Variablen nicht mit *g*.
Oder hast du einen 256 Bit Integer :shock: ?
Forum: Software-Projekte der Mitglieder
by axelf98,
26. Okt 2003
Wenn ihr alles immer so kurz wie möglich haben wollt, bitte:
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) *...
Forum: Software-Projekte der Mitglieder
by axelf98,
26. Okt 2003
Entschuldigung, ich werde dann halt nicht mehr helfen. :?
Der Code läuft aber ohne Probleme!
Forum: Software-Projekte der Mitglieder
by axelf98,
26. Okt 2003
Müsste eigentlich so stimmen:
function Formatieren(KB: Extended): String;
const Genauigkeit = 1000;
var
Dimension : String;
begin
if KB >= 0 then Dimension := 'KiloByte';
if KB > 1023 then Dimension := 'MegaByte';
if KB > 1048575 then Dimension := 'GigaByte';
Forum: Software-Projekte der Mitglieder
by axelf98,
25. Okt 2003
Meine Partition C:\ ist 1,86 Terrabyte groß! :shock: