|
Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
FreePascal / Lazarus
|
AW: Dateigröße in Byte auslesen
4. Mai 2017, 15:37
Delphi-Quellcode:
if (meinwert mod clustergröße)>0 then
plattenplatz:=((meinwert div clustergröße)+1)*clustergröße
else
plattenplatz:=(meinwert div clustergröße)*clustergröße;
Das sollte es sein (keine Gewähr für Tippfehler)
Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
|