Olá, como criar um método SETGET em classes sem gerar erro??!!
Declarei o método da seguinte maneira:
e a função ficou da seguinte maneira:
Sendo que após compilar e logo ao executar aparece uma tela de erro com a seguinte mensagem!! Veja abaixo:
Solução pra isto??!!
Declarei o método da seguinte maneira:
METHOD FieldName(cFieldName, uValue) SETGETe a função ficou da seguinte maneira:
****************************************************************************
METHOD FieldName(cFieldName, uValue ) CLASS TDlgCadMySql
****************************************************************************
*
* Pegar o valor do campo informado da matriz
* Parametros: cFieldName
* Retorno: Variavel indefinida
*
* Autor: Anderson
* 12/11/2008 - 15:54:50
*
****************************************************************************
local Result := nil, i := 0
if PCount() == 2
//-- Set -----------------------------------------------------------//
for i := 1 to Len(::aFields)
if Upper(cFieldName) == ::aFields[i,1]
::aFields[i,2] := uValue
exit
end
end//for i := 1 to Len(::aFields)
else
//-- Get -----------------------------------------------------------//
for i := 1 to Len(::aFields)
if Upper(cFieldName) == ::aFields[i,1]
Result := ::aFields[i,2]
exit
end
end//for i := 1 to Len(::aFields)
end
return Result
/*------------------------------------------------------------------------*/Sendo que após compilar e logo ao executar aparece uma tela de erro com a seguinte mensagem!! Veja abaixo:
---------------------------
Unrecoverable error 9009:
---------------------------
---------------------------
[ OK ]
---------------------------Solução pra isto??!!
FiveWin 9.03 + xHarbour !!
