Funktion (Größe formatieren) umkehren

[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;

[atc]

Danke, das ist auch gut. Komplett ohne Hilfsfunktion, if oder case geht es wohl nicht.
Sowas geht ja leider nicht, oder?

Delphi-Quellcode:

const
  A: Array[Char] of Byte = ('B': 0, 'K': 1, 'M': 2, usw.);