BlackTDN Search

segunda-feira, 19 de janeiro de 2009

Protheus :: Programação Básica em Advpl “Combo XXVI”

Recursividade:

As funções e rotinas podem ser recursivas, isto é, podem chamar a si mesmas. Cada chamada recebe uma nova cópia das variáveis Local e Private e de quaisquer parâmetros. Quando uma função retorna, os valores anteriores são restabelecidos. Obs.: Não são alocadas novas cópias de variáveis STATIC.

Exemplo:

User Function SaveArray( uArray , cFileName , nErr )

Local cValTypeuArray := ValType( uArray )
Local lSaveArray := .F.

Local aArray
Local nfHandle

Begin Sequence

IF !( cValTypeuArray $ "A/O" )
Break
EndIF

IF ( cValTypeuArray == "O" )
aArray := ClassDataArr( uArray )
Else
aArray := uArray
EndIF

lSaveArray := FileCreate( cFileName , @nfHandle , @nErr )
IF !( lSaveArray )
Break
EndIF

SaveArr( nfHandle , aArray ) //Aqui chamamos a função para salvar o Array
fClose( nfHandle )

End Sequence

Return( lSaveArray )


Static Function SaveArr( nfHandle , aArray )

Local cElemType

Local uCntSave

Local nLoop
Local nLoops

nLoops := Len( aArray )
uCntSave := ( "A" + StrZero( nLoops , 10 ) )
fWrite( nfHandle , uCntSave )
For nLoop := 1 To nLoops
cElemType := ValType( aArray[ nLoop ] )
IF ( cElemType $ "A/O" ) //Aqui efetuamos a chamada recursiva
IF ( cElemType == "A" )
SaveArr( nfHandle , aArray[ nLoop ] )
Else
SaveArr( nfHandle , ClassDataArr( aArray[ nLoop ] ) )
EndIF
Else
IF ( cElemType == "B" )
uCntSave := GetCBSource( aArray[ nLoop ] )
ElseIF ( cElemType == "C" )
uCntSave := aArray[ nLoop ]
ElseIF ( cElemType == "D" )
uCntSave := Dtos( aArray[ nLoop ] )
ElseIF ( cElemType == "L" )
uCntSave := IF( aArray[ nLoop ] , ".T." , ".F." )
ElseIF ( cElemType == "N" )
uCntSave := Transform( aArray[ nLoop ] , RetPictVal( aArray[ nLoop ] ) )
EndIF
uCntSave := ( cElemType + StrZero( Len( uCntSave ) , 5 ) + uCntSave )
fWrite( nfHandle , uCntSave )
EndIF
Next nLoop

Return( NIL )

Nenhum comentário:

Postar um comentário