mein SpinEditChange sieht jetzt so aus:
Delphi-Quellcode:
// Dateigröße
try
byte := GetFileSizeA(sEdit1.Text);
kilobyte := byte div 1024;
megabyte := kilobyte / 1024;
nSize := SpinEdit1.Value;
// rechnung komplett anders um MOD werde ich nicht
// herum kommen. LÖSUNG suchen!
Parts := (kilobyte div nSize);
KBproPart := nSize;
LetzterPart := kilobyte - (Parts * KBproPart);
LetzterPart := LetzterPart;
// x Parts á x KB gesamt, Label1
sLabel1.Caption := Format('%s Part(s) á %s KB und 1 ' +
'Part á %s KB gesamt',
[IntToStr(Parts), IntToStr(KBproPart),
IntToStr(LetzterPart)]);
except
Showmessage('Es ist ein Fehler aufgetreten!');
end;
MOD habe ich zwar noch nicht untergebracht aber es klappt. ich gucke mal obs auch mit sehr großen dateien geht