KB zu Bytes umwandeln

[Luckie]

Sieht der String so aus: "425.156 KB"? Dann schneide von hinten alles inklusive des Leerzeiches weg und entferne den Punkt mit StringReplace. Dann kannst du den String mit StrToInt in ein Integer verwandeln und mit 1024 multiplizieren. Solltest du Einfluss auf die Darstellung haben, trenne die Oberfläche von den Daten und speichere den Wert gleich als Integer und wandele ihn nur zur Darstellung um.

[Aphton]

Blub

Manchmal bin ich echt blöd =(

Oder auch nicht:

Delphi-Quellcode:

var
  s, kb : String;
  dot   : Integer;
  val   : Int64;
begin
  s   := '463.433 kB';
  kb  := Copy(s, 1, pos(' ', s)-1);
  dot := Pos('.', kb);
  val := StrToInt(Copy(kb, 1, dot-1)) * 1024;
  val := val + Trunc(StrToInt(Copy(kb, dot+1, Length(kb)-dot)) * 1024/1000);
  ShowMessage(Format('%s'#13#10'bytes'#9'%d'#13#10'kbytes'#9'%.2f', [s, val, val/1024]));
end;