DeleteEntry 所發現的問題 type & parameter _DeleteEntry(_cSection, _cEntry)

clear
//set procedure To QIni.cc additive && 解析 ???.ini
//oIni = new Qini(  ) && d考慮 路徑 + 檔案名稱+後? 停用唄!
//oIni.Inifile =( _app.iniFile )

//11=WebTemp
DeleteEntry( "UserBDEAliases",'0')

_DeleteEntry( "UserBDEAliases",'0')

FUNCTION DeleteEntry
   parameter cSection, cEntry
Local lSuccess, cIniFile
cIniFile =  _app.iniFile
   lSuccess =false

if type("cSection") == "C"
? "cSection="+ cSection

endif

if type("cEntry") == "C"
? "cEntry="+cEntry

endif

if type("cSection") == "C" .and. type("cEntry") == "C"
lSuccess = WritePrivateProfileString(cSection, cEntry,0, cIniFile)
endif

? lSuccess

RETURN

**********************************************************************
FUNCTION _DeleteEntry(_cSection, _cEntry)
Local lSuccess, cIniFile
cIniFile =  _app.iniFile
   lSuccess =false

if type("_cSection") == "C"
? "_cSection="+ _cSection
else
? type("_cSection")
endif

if type("_cEntry") == "C"
? " _cEntry="+_cEntry
else
? type("_cEntry")
endif

x = _cSection
y = _cEntry



if type("cSection") == "C" .and. type("cEntry") == "C"
lSuccess = WritePrivateProfileString(cSection, cEntry,0, cIniFile)
else
? 'CCC'
endif

? lSuccess

RETURN