Hola Pritpal veo que usas mucho len( a ) dentro de los bucles y eso se
evalua en cada iteración.
Por ejemplo MemoToArray quedaría más optimizada así:
FUNCTION MemoToArray( s )
LOCAL a_, b_, i, j, n
s := trim( s )
s := strtran( s, CRLF, _EOL )
a_:= hb_atokens( s, _EOL )
n := len( a_ ) // <----------------------
FOR i := n TO 1 step -1
IF !empty( a_[ i ] )
EXIT
ENDIF
NEXT
IF i < n
b_ := Array( i ) // <----------------------
FOR j := 1 TO i
b_ := a_[ j ]
NEXT
ENDIF
RETURN b_
vouch...@users.sourceforge.net escribió:
Revision: 13135
http://harbour-project.svn.sourceforge.net/harbour-project/?rev=13135&view=rev
Author: vouchcac
Date: 2009-12-05 18:04:12 +0000 (Sat, 05 Dec 2009)
Log Message:
-----------
2009-12-05 09:57 UTC-0800 Pritpal Bedi (prit...@vouchcac.com)
* contrib/hbide/hbide.prg
* contrib/hbide/projects/hbide.hbi
* contrib/hbide/resources/projectproperties.ui
! Probably now <Project Properties> dialog will exit cleanly on <Cancel>.
! Destroyed more Qt objects on exit.
* contrib/hbxbp/xbpstatusbar.prg
! Destruction of panels.
Modified Paths:
--------------
trunk/harbour/ChangeLog
trunk/harbour/contrib/hbide/hbide.prg
trunk/harbour/contrib/hbide/projects/hbide.hbi
trunk/harbour/contrib/hbide/resources/projectproperties.ui
trunk/harbour/contrib/hbxbp/xbpstatusbar.prg
This was sent by the SourceForge.net collaborative development platform, the
world's largest Open Source development site.
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
