Zitat von
Muetze1:
Delphi-Quellcode:
If ( KBSize < 1000 ) Then
Result := IntToStr(KBSize) + ' KB'
Else
Result := IntToStr(KBSize Div 1024) + ' MB';
Ich will ja nicht deinen schönen Code ruinieren, aber eines gibt es noch zu sagen. Wenn du die Größe in MB angibst, so solltest du überprüfen, ob die Größe auch größer als 1024 KB ist, und nicht 1000. Hier beim L2 macht das nicht viel Unterschied, da sowieso schöne 2erpotenzen herhalten, aber trotzdem...der Code wäre perfekt wenn du das noch ausbessern würdest.