Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by ChEeTaH,
4. Jan 2010
hoppla, hab vergessen, dass der zweite Code-Snippet nicht von dir ist :oops:
Er steht aber trotzdem in deinem Thread :mrgreen:
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by ChEeTaH,
4. Jan 2010
Doch, in der Zeile beschwert sich der Compiler:
Index := Trunc(ln(ASize) / ln(2) / 10 + Epsilon);
:angel:
MfG ChEeTaH
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by ChEeTaH,
4. Jan 2010
Mein Vorschlag für Byte-Werte zwischen den Einheiten umrechnen:
function TfMain.FileSizeToStr(const ASize: Int64 {für Delphiversionen < 2005 durch Real/Double/Extended ersetzen}; const AUseShortNames: Boolean = true): string;
const
ShortUnits: Array of string = ('Byte', 'KB', 'MB', 'GB', 'TB', 'PB', 'EB', 'ZB', 'YB');
LongUnits: Array of string = ('B', 'Kilob', 'Megab', 'Gigab',...