In HMG4, there are more than 400 lines of code like this:
Code: Select all
IF lValue == .T.
doSomething ...
ENDIF
For example:
IF ::lCreated == .T.
RETURN NIL
ENDIF
IF PCOUNT() == 0
::lFontBold := IIF( hb_IsNil( [::lFontBold ) == .T., ::oQtFont:bold(), ::lFontBold )
Shorter and quicker code is:
Code: Select all
IF ::lCreated
RETURN NIL
ENDIF
IF PCOUNT() == 0
::lFontBold := IIF( hb_IsNil( ::lFontBold ) , ::oQtFont:bold(), ::lFontBold )
Franček