Forum: Object-Pascal / Delphi-Language
Delphi
by atc,
26. Feb 2013
Danke, das ist auch gut. Komplett ohne Hilfsfunktion, if oder case geht es wohl nicht.
Sowas geht ja leider nicht, oder?
const
A: Array of Byte = ('B': 0, 'K': 1, 'M': 2, usw.);
Forum: Object-Pascal / Delphi-Language
Delphi
by atc,
26. Feb 2013
danke für die hilfe. ich habe es jetzt so. meint ihr es geht noch besser?
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));
Forum: Object-Pascal / Delphi-Language
Delphi
by atc,
26. Feb 2013
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?
Forum: Object-Pascal / Delphi-Language
Delphi
by atc,
26. Feb 2013
hallo,
ich versuche gerade eine umkehrfunktion zu dieser funktion zu schreiben:
function FormatSize(ASize: Int64): string;
const
UNITS: Array of string = ('B', 'KB', 'MB', 'GB', 'TB', 'PB', 'EB',
'ZB', 'YB');
var
iIndex: Integer;
begin