KB zu Bytes umwandeln

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