|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.619 Beiträge
Delphi 12 Athens
|
Re: Kleines mathem. Problem
6. Okt 2007, 15:01
Delphi-Quellcode:
KBproPart := nSize;
LetzterPart := kilobyte - (Parts * KBproPart);
LetzterPart := LetzterPart;
Das hab ich nicht verstanden (rein logisch). LetzterPart := kilobyte mod nSize;
Und fertig ist die Laube.
Delphi-Quellcode:
sLabel1.Caption := Format('%s Part(s) á %s KB und 1 ' +
'Part á %s KB gesamt',
[IntToStr(Parts), IntToStr(KBproPart),
IntToStr(LetzterPart)]);
Das lässt sich aber auch vereinfachen:
Delphi-Quellcode:
sLabel1.Caption := Format('%d Part(s) á %d KB und 1 ' +
'Part á %d KB gesamt',
[Parts, KBproPart,
LetzterPart]);
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|