Delphi-Quellcode:
function CalcDLTime(const Size: extended; const Units, Speed: integer): TTimeRec;
function BitToByte(const Bits: extended): extended;
function ByteToBit(const Bytes: extended): extended;
ich würde da von Extended auf Integer umstellen, denn halbe Bytes gibt's ja nicht, vorallem nicht bei einer Dateigröße
bei BitToByte/ByteToBit kann man dann auch schön nur noch mit SHL/SHR arbeiten.
z.B.:
Delphi-Quellcode:
Byte := (Bit + 7) shr 3;
Bit := Byte shl 3;