Hello Przemek,
This sample:
[CODE]
#include "hbmemory.ch"
#define CRLF chr(13) + chr(10)
function main
local a , b:= 0
cls
do while .t.
b += 1
dispbegin()
VER_MEMO()
@22 , 01 say b
dispend()
a:={nil}
a[1]:=a
tecla := inkey()
if tecla = 27
exit
endif
* hb_gcall()
enddo
return NIL
*****************
function VER_MEMO
*****************
@11, 01 say "1001 = Memory used (bytes) " + str(
memory( HB_MEM_USED ) )
@12, 01 say "1002 = Maximum memory used (bytes) " + str(
memory( HB_MEM_USEDMAX ) )
return NIL
[ENDCODE]
... always return "0", with down:
[SCREEN]
1001 = Memory used (bytes) 0
1002 = Maximum memory used (bytes) 0
[ENCSCREEN]
A few days ago worked perfectly.
Best Regards,
Rossine.
--
View this message in context:
http://www.nabble.com/SF.net-SVN%3A-harbour-project%3A-10873--trunk-harbour-tp23080803p23280714.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
