|
@@ -306,7 +306,7 @@ begin
|
|
|
|
|
|
|
|
LSize := Trim(AUnit);
|
|
LSize := Trim(AUnit);
|
|
|
case Length(LSize) of
|
|
case Length(LSize) of
|
|
|
- 1,2: Result := SizeUnitToInt(LSize[Low(LSize)]);
|
|
|
|
|
|
|
+ 1,2: Result := SizeUnitToInt(PChar(AUnit)^);
|
|
|
end;
|
|
end;
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
@@ -358,7 +358,7 @@ begin
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
if s <> '' then
|
|
if s <> '' then
|
|
|
- Result := StrToUInt64Def(s, Result) * SizeUnitToInt(c);
|
|
|
|
|
|
|
+ Result := StrToInt64Def(s, Result) * SizeUnitToInt(c);
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
function GetStrParamStr(P: PChar; var Param: String): PChar;
|
|
function GetStrParamStr(P: PChar; var Param: String): PChar;
|
