KB zu Bytes umwandeln

[Klaus01]

Hallo,

wenn Du den Wert in Byte vorliegen hast, dann kann es keine Nachkommastelle mehr geben.
Du kannst diese also einfach abschneiden z.B. mit trunc.

Grüße
Klaus

[DrD0j0]

Vielen lieben Dank für die schnelle und kompetente Hilfe

[Hobby-Programmierer]

Delphi-Quellcode:

function Kb2Byte(SrcKb: String): Int64;
var tmpSize: Double;
begin
  Result := 0;
  if TryStrToFloat(SrcKb, tmpSize) then
    Result := Trunc(tmpSize *1024);
end;

[Namenloser]

Bin ich der einzige, der der Meinung ist, dass hier eine Exception ausgelöst werden sollte, wenn die Konvertierung fehlschlägt? Man sucht den Fehler nämlich hinterher u.U. ewig, wenn das Programm aus unerfindlichen Gründen bei manchen Dateien die falsche Dateigröße anzeigt...

Also wenn schon, dann so:

Delphi-Quellcode:

function Kb2Byte(SrcKb: String): Int64;
var tmpSize: Double;
begin
  if TryStrToFloat(SrcKb, tmpSize) then
    Result := Trunc(tmpSize*1024)
  else
    raise EConvertError.CreateFmt('"%s" is not a valid file size', [SrcKb]);
end;

Aber abgesehen davon, ist Aphtons Lösung die korrekte, da sie mit einbezieht, dass die Nachkommastellen nur bis 999 gehen, und nicht bis 1024.

[Aphton]

Zitat von NamenLozer:

Aber abgesehen davon, ist Aphtons Lösung die korrekte, da sie mit einbezieht, dass die Nachkommastellen nur bis 999 gehen, und nicht bis 1024.

Darn it... Und ich dachte mir, die sei falsch =\

[generic]

Streng genommen müsstest du nur mit 1000 Multiplizieren.
Wenn KiB (oder im Englischen Ki) angegeben wäre müsstest du mit 1024 Multiplizieren.

http://de.wikipedia.org/wiki/Byte

http://en.wikipedia.org/wiki/Byte

[Namenloser]

Das Problem ist, dass die meisten Programme kilo, mega und giga schreiben, aber kibi, mebi und gibi meinen... (man, klingen diese Binärpräfixe albern – bin ich eigentlich der einzige, der bei kibi immer an einen neuseeländischen Vogel denken muss?)