Funktion (Größe formatieren) umkehren

[divBy0]

Der Wert kann nicht stimmen, da ganz einfach Stellen fehlen.

Beispiel:

Code:

5662353442 / 1024 / 1024 / 1024 = 5,273477585986257 GB

5,273477585986257 * 1024 * 1024 * 1024 = 5662353442 Byte

5,27 * 1024 * 1024 * 1024 = 5658619413 Byte

[atc]

ok, hast recht. kann man denn den näherungswert (fehlende stellen einfach ignorieren) bestimmen ohne die vielen if-abfragen so wie in der ersten funktion?

[divBy0]

Wie soll das denn funktionieren?

Du musst ja schon auf die Einheit prüfen, sonst weißt du ja nicht mit was du multiplizieren musst.

Für was brauchst du denn diese Umkehrfunktion überhaupt? Dateigrößen usw. werden doch immer in Byte gespeichert.

[p80286]

Eine Möglichkeit währe es :

Delphi-Quellcode:

myconst='B KBMBTP....'

indx:=pos('xx',myconst);

Du mußt indx jetzt nur noch in die richtige 2er bzw 10er-Potenz übersetzen.
Ob das einfacher ist?

Gruß
K-H

[divBy0]

Zitat von p80286:

Eine Möglichkeit währe es :

Delphi-Quellcode:

myconst='B KBMBTP....'
indx:=pos('xx',myconst);

Nette Idee!

[p80286]

Zitat von divBy0:

Zitat von p80286:

Eine Möglichkeit währe es :

Delphi-Quellcode:

myconst='B KBMBTP....'
indx:=pos('xx',myconst);

Nette Idee!

Danke,
aber ein Tippfehler und Du kannst es vergessen.

Gruß
K-H

[atc]

danke für die hilfe. ich habe es jetzt so. meint ihr es geht noch besser?

Delphi-Quellcode:

function FormatSizeR(S: string): Int64;
var
  I: Integer;
  E: Extended;
begin
  I := Pos(' ', S);
  Assert(I > 0);
  E := StrToFloat(Copy(S, 1, Pred(I)));
  S := Copy(S, Succ(I));
  case S[1] of
    'B': I := 0;
    'K': I := 1;
    'M': I := 2;
    'G': I := 3;
    'T': I := 4;
    'P': I := 5;
    'E': I := 6;
    'Z': I := 7;
    'Y': I := 8;
  end;
  Result := Round(E * (1 shl (I * 10)));
end;

[Uwe Raabe]

Mit Hilfe der Unit StrUtils kann man die Funktion nahezu 1:1 umkehren:

Delphi-Quellcode:

function FormatSizeR(S: string): Int64;
const
  UNITS: Array[0..8] of string = ('B', 'KB', 'MB', 'GB', 'TB', 'PB', 'EB',
                                  'ZB', 'YB');
var
  I: Integer;
  E: Extended;
  iIndex: Integer;
begin
  I := Pos(' ', S);
  Assert(I > 0);
  E := StrToFloat(Copy(S, 1, Pred(I)));
  S := Copy(S, Succ(I));
  iIndex := IndexText(S, UNITS);
  if iIndex < 0 then
    raise Exception.CreateFmt('ungültige Einheit "%s"', [S]);
  Result := Round(E * (1 shl (iIndex * 10)));
end;

[Popov]

Übrigens, es gibt keine KB, und wenn, dann ist es falsch. Ich will nicht behaupten, dass es nicht vorkommt, aber man kann sich nicht drauf verlassen. Denn Kilo wird mit einem kleinem k abgekürzt. Somit schriebt man eigentlich kB. Zwar ist auch das keine offizielle Abkürzung, aber man sollte eben kB und KB erwarten. Bei MB und GB sieht das anders aus. m ist Aukürzung für Meter, somit wird ein mB nie vorkommen, genau wie auch gB, war Gramm Byte bedeuten würde. Großes K ist dagegen eine Abkürzung für Kelvin, womit KB Kelvin Byte bedeuten würde.

[Medium]

Der ganze Ansatz scheint mir seltsam zu sein. Die Formatierung sollte wirklich und nur für die Anzeige benutzt werden. Intern sollte man den tatsächlichern Wert behalten.