hallo, ich habe da ein kleines abr feines Problemchen.
undzwar siehts so aus:
Ich öffne eine Datei via OpenDialog, dann speichere ich die Dateigröße in Kilobyte(!) in einer variablen (Real).
- Angenommen die Datei ust 145 KB klein
Dann habe ich ein SpinEdit, dort trage ich z.b. 50 ein (angabe auch in KB).
145 wird nun durch 50 geteilt.
Mein Code, mal zu ansehen:
Delphi-Quellcode:
var
SpinEditEingabe: Integer
byte, kilobyte, megabyte: Real;
Parts, KBproPart, LetzterPart: Real;
begin
byte := vFileSize(Edit1.Text);
kilobyte := byte / 1024;
megabyte := kilobyte / 1024;
SpinEditEingabe := SpinEdit1.Value;
// rechnung komplett anders um MOD werde ich nicht
// herum kommen
Parts := RundeAufStelle(kilobyte / SpinEditEingabe, 0) - 1;
KBproPart := nSize;
LetzterPart := RundeAufStelle(kilobyte - (Parts * KBproPart), 2);
LetzterPart := LetzterPart * -1;
// x Parts á x KB gesamt, Label1
sLabel1.Caption := Format('%s Part(s) á %s KB und 1 ' +
'Part á %s KB gesamt',
[FloatToStr(Parts), FloatToStr(KBproPart),
FloatToStr(LetzterPart)]);
So, da wird mir dann angezeigt, dass wenn ich die 145 KB teile, X teile á XX KB habe
und dann ein part á YY kb. das YY sollte dann eigebntlich der REST von dem nicht mehr teilbaren da oben sein.
aber ich kriegs nicht hin. MOD funktionert nicht.