Răsfoiți Sursa

Merge pull request #36 from clauslack/patch-1

Update dbinfo.pas
Motaz Abdel Azeem 7 ani în urmă
părinte
comite
6e5054e8a5
1 a modificat fișierele cu 1 adăugiri și 1 ștergeri
  1. 1 1
      dbinfo.pas

+ 1 - 1
dbinfo.pas

@@ -107,7 +107,7 @@ begin
       edCreationDate.Text:= CreationDate;
       edCreationDate.Text:= CreationDate;
       edPageSize.Text:= IntToStr(PageSize);
       edPageSize.Text:= IntToStr(PageSize);
       edConnections.Text:= IntToStr(ProcessList.Count);
       edConnections.Text:= IntToStr(ProcessList.Count);
-      dbSize:= Pages * PageSize;
+      dbSize:= Double(Pages) * Double(PageSize);     
 
 
       // Display database size in readable format
       // Display database size in readable format
       if dbSize > (1024*1024*1024) then
       if dbSize > (1024*1024*1024) then