, GetFileSize biedt aan om, geen manier om het a filesize in a Descriptive string, dit algoritme? GetAFileSize (SizeInBytes: integer, functie): een totaal Preffixes:;,,,, array[0..3] van touw = //Common dossier maten preffixes,, ("Bytes'," KB','MB', "als je //Change GB'); Ik wil iets pakken, FormatSpecifier:, array[Boolean] van touw =,, ('%n','%.2n'); //the format van de manier waarop we het touw, var;,,,.,.; //A tegen, TmpSize: Real; //A dezelfde variabele, en beginnen,, I: = 1; //Avoid zullen klagen, tmpSize: = SizeInBytes, de hele tijd, terwijl de samensteller; //Avoid, (I < = 3) do //Main cyclus is gedaan terwijl I < hoge (Preffixes), maar nu, een dossier zal rarel ///////(A - 3 y (,,,, ", TmpSize: = TmpSize /1024; //1 MB = 1024 KB, 1 KB = 1024 bytes, 1 byte = 8 bit = er stukjes, 1, Inc (i); //increment, tegen te gaan en te preffix, touw, als Trunc (TmpSize) = 0 maar als het zo is dat de //we a maximale nuber van divisions zo beginnen, TmpSize:,,, * * * * * * * = TmpSize 1024; //Tmpsize was verdeeld: meer dan 1, breek niet; //Exit van lus;,,,,,,,,,,, //Actual formatting routine, het formaat (FormatSpecifier[: = ((Frac (TmpSize 10)% GT%) 1)], [TmpSize]) + Preffixes[i];,,,,,,,, * * * * * * * - aantekeningen van, die wordt relies op Delphi eigen formaat (wich soort grenzen van het,, * * * * * * * isnot deel van het Windows API, je moet op.Py en paste het, je gebruikt het Windows API,, * * * * * * * de verschillende met de juiste afronding en kan worden verlengd,