AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Code-Bibliothek Library: Dateien / Laufwerke Delphi Byte-Werte zwischen den Einheiten umrechnen

Byte-Werte zwischen den Einheiten umrechnen

Ein Thema von WladiD · begonnen am 1. Feb 2006
Antwort Antwort
WladiD

Registriert seit: 27. Jan 2006
Ort: Celle
135 Beiträge
 
Delphi 10.4 Sydney
 
#1

Byte-Werte zwischen den Einheiten umrechnen

  Alt 1. Feb 2006, 09:31
Da ich hier neu bin will ich mal einen kleinen Beitrag leisten und eine von mir geschriebene Funktion hier zur Verfügung stellen:

Delphi-Quellcode:
function ConvertByte(BytesCount:Int64; Short:Boolean):String;
//BytesCount: Anzahl der Bytes
//Short: Falls TRUE wird die Einheit in Kurzform, sonst in voller Schreibweise zurückgegeben.
const
    ByteShortUnits:array[0..8] of String = ('B', 'KB', 'MB', 'GB', 'TB', 'PB', 'EB', 'ZB', 'YB');
    ByteLongUnits:array[0..8] of String = ('Byte', 'KiloByte', 'MegaByte',
        'GigaByte', 'TeraByte', 'PetaByte', 'ExaByte', 'ZettaByte', 'YottaByte');
var
    cc:Integer;
    OutputUnit:String;
begin
    for cc:=1 to Length(ByteShortUnits) - 1 do
        if Power(2, cc * 10) > BytesCount then
            Break;

    Dec(cc);

    if Short then
        OutputUnit:=ByteShortUnits[cc]
    else
        OutputUnit:=ByteLongUnits[cc];

    Result:=FloatToStr(RoundTo(BytesCount / Power(2, cc * 10), -2)) + ' ' + OutputUnit;
end;
Beschreibung
Liefert aus Byte-Anzahl die nächstpassende Byte-Einheit als String. Die Einheit kann in Kurzform (z.B. Byte > B, KiloByte > KB) oder in voller Form ausgegeben werden.

Die Funktion sollte eigentlich mit jeder Delphi-Version funktionieren. Habe jedoch nur in Delphi 7 getestet.

Beispiele
Delphi-Quellcode:
ShowMessage(ConvertByte(1023, TRUE)); //Liefert: "1023 B"
ShowMessage(ConvertByte(1024, TRUE)); //Liefert: "1 KB"

ShowMessage(ConvertByte(1023, FALSE)); //Liefert: "1023 Byte"
ShowMessage(ConvertByte(1024, FALSE)); //Liefert: "1 KiloByte"

ShowMessage(ConvertByte(3145728, TRUE)); //Liefert: "3 MB"
ShowMessage(ConvertByte(3145728, FALSE)); //Liefert: "3 MegaByte"
Benötigte Units
  • SysUtils
  • Math


Khabarakh hat auf Basis seines Codes eine Alternative gepostet, die ohne die Unit Math auskommen sollte:
Delphi-Quellcode:
function FileSizeToStr(const ASize: Int64 {für Delphiversionen < 2005 durch Real/Double/Extended ersetzen}; const AUseShortNames: Boolean = true): string;
const
  ShortUnits: Array[0..8] of string = ('Byte', 'KB', 'MB', 'GB', 'TB', 'PB', 'EB', 'ZB', 'YB');
  LongUnits: Array[0..8] of string = ('B', 'Kilob', 'Megab', 'Gigab', 'Terab', 'Petab', 'Exab', 'Zettab', 'Yottab');
  Epsilon = 1 / 1024; // Wegen der Fließkommaungenauigkeit sicher nie falsch, verhindert außerdem Anzeigen wie "1024 KB"
var
  Index: Integer;
begin
  Index := Trunc(ln(ASize) / ln(2) / 10 + Epsilon);
  if AUseShortNames then
    Result := Format('%.2f %s', [ASize / (Int64(1) shl (Index * 10)), ShortUnits[Index]])
  else
    Result := Format('%.2f %s%s', [ASize / (Int64(1) shl (Index * 10)), LongUnits[Index], 'yte'])
end;
mfg

[edit=Chakotay1308]Khabarakh's Code angefügt. Mfg, Chakotay1308[/edit]
[edit=Chakotay1308]Titel angepasst. Mfg, Chakotay1308[/edit]
Waldemar Derr
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:21 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz