eric
/
mysticbbs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix for gigabyte calculation

This commit is contained in:
mysticbbs 2012-07-15 16:14:20 -04:00
parent f0d0713f4f
commit 7b2efa2e78
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
mystic/bbs_filebase.pas
View File

@ -1781,7 +1781,7 @@ Var
If FDir.Flags And FDirInvalid <> 0 Then If FDir.Flags And FDirInvalid <> 0 Then
GetFileListSize := strWordGet(3, SizeInfo, ' ') GetFileListSize := strWordGet(3, SizeInfo, ' ')
Else Else
If FDir.Size >= 10240000 Then Begin If FDir.Size >= 1024000000 Then Begin
A := (FDir.Size DIV 1024) DIV 1024; A := (FDir.Size DIV 1024) DIV 1024;
GetFileListSize := strI2S(A DIV 1000) + '.' + Copy(strI2S(A MOD 1000), 1, 2) + strWordGet(4, SizeInfo, ' ') GetFileListSize := strI2S(A DIV 1000) + '.' + Copy(strI2S(A MOD 1000), 1, 2) + strWordGet(4, SizeInfo, ' ')
End Else End Else