|
Registriert seit: 19. Jan 2006
Ort: München
392 Beiträge
Delphi XE Starter
|
AW: KB zu Bytes umwandeln
2. Jun 2011, 14:45
Delphi-Quellcode:
function Kb2Byte(SrcKb: String): Int64;
var tmpSize: Double;
begin
Result := 0;
if TryStrToFloat(SrcKb, tmpSize) then
Result := Trunc(tmpSize *1024);
end;
Mario
'Lesen Sie schnell, denn nichts ist beständiger als der Wandel im Internet!'
|