FIX: Bug [0001751] Size is padding with extra spaces at the left #2

This commit is contained in:
Alexander Koblov 2017-04-09 17:21:14 +00:00
commit 653f313e9d

View file

@ -376,11 +376,11 @@ begin
Result:= FloatToStrF(FloatSize / 1024, ffFixed, 15, Number) + ' K'
end
else
Result:= IntToStr(iSize);
Result:= Format('%.0n', [FloatSize]);
end;
fsfByte:
begin
Result:= IntToStr(iSize);
Result:= Format('%.0n', [FloatSize]);
end;
fsfKilo:
begin