fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2016-01-19 12:58 UTC+0100 Maurilio Longo (maurilio.longo@libero.it)

Browse Source 
! tests/longfile.prg
      ! use hb_fSize() instead of FileSize()
This commit is contained in:
maurilio
2016-01-19 12:58:43 +01:00
parent 548bf2da5e
commit 83a19daafb
2 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
tests/longfile.prg
View File

@@ -24,8 +24,8 @@ function main()
long->FIELD1 := PadL( nRec, 30, Space( 1 ) )
next
? "File size is : " + Transform( FileSize( cFileName + ".dbf" ), "@ZE ###,###,###,###" )
? "Index size is: " + Transform( FileSize( cFileName + IndexExt() ), "@ZE ###,###,###,###" )
? "File size is : " + Transform( hb_fSize( cFileName + ".dbf" ), "@ZE ###,###,###,###" )
? "Index size is: " + Transform( hb_fSize( cFileName + IndexExt() ), "@ZE ###,###,###,###" )
? "Testing index..."
for nRec := 1 to nTotalRecs / 10