Naja, solchen Käse verzapft doch jeder mal...
Delphi-Quellcode:
Function SizeToString(Size: LargeInt): String;
Var i: LargeInt;
Begin
i := Abs(Size);
If i < 1000 Then Result := Format('%.0n B', [Size / 1])
Else If i < 10235 Then Result := Format('%.2n KB', [Size / 1024])
Else If i < 102349 Then Result := Format('%.1n KB', [Size / 1024])
Else If i < 1023488 Then Result := Format('%.0n KB', [Size / 1024])
Else If i < 10480518 Then Result := Format('%.2n MB', [Size / 1048576])
Else If i < 104805172 Then Result := Format('%.1n MB', [Size / 1048576])
Else If i < 1048051712 Then Result := Format('%.0n MB', [Size / 1048576])
Else If i < 10732049531 Then Result := Format('%.2n GB', [Size / 1073741824])
Else If i < 107320495309 Then Result := Format('%.1n GB', [Size / 1073741824])
Else If i < 1073204953088 Then Result := Format('%.0n GB', [Size / 1073741824])
Else If i < 10989618719622 Then Result := Format('%.2n TB', [Size / 1099511627776])
Else If i < 109896187196212 Then Result := Format('%.1n TB', [Size / 1099511627776])
Else If i < 1098961871962112 Then Result := Format('%.0n TB', [Size / 1099511627776])
Else If i < 11253369568892027 Then Result := Format('%.2n PB', [Size / 1125899906842624])
Else If i < 112533695688920269 Then Result := Format('%.1n PB', [Size / 1125899906842624])
Else If i < 1125336956889202688 Then Result := Format('%.0n PB', [Size / 1125899906842624])
Else Result := Format('%.2n EB', [Size / 1152921504606846976]);
End;
Recht haste aber trotzdem mit dem Counter. War im übrigen bekannt, man muss nur ein paar mal hintereinander 'Pause ' drücken, während "er" rödelt. Das ich allerdings die globale Variable dafür benutze, war nicht geplant. Haste ja rischtisch gesacht und werdsch mal ändern.
Zitat von
himitsu:
ich dachte man weiß in etwa, was man verbrockt hat Grübelnd...
aber keine Sorge ... ich seh in deinem Quellcode och nicht so ganz durch ... anderer Codestil und total andere (mir unverständliche) Herangehensweise... Angel
Hab schon schlimmeres gesehen.
Aber vielleicht kann ich dir ja och noch uff de Sprünge helfen und dir einiges erklären.
PS: Wäre schön, wenn der Copyright-Inhaber nichts dagegen hätte.
@XZise: Da geht in jedem Fall noch was.
Mein Zufallsgenerator muss nur irgendwann den richtigen Code ausk*****.