import.css=/download/attachments/6062824/tecnologia.css

Adiciona novos membros para variáveis do tipo Record dinamicamente ou seja, em tempo de execução.

Sintaxe

AddMember( < cNomeVar >, < cNomeMembro >, < cTipoMembro > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cNomeVar

caractere

Indica o nome do Record onde será adicionado novo membro.

X


cNomeMembro

caractere

Indica o nome do novo membro a ser adicionado.

X


cTipoMembro

caractere

Indica o tipo do novo membro a ser adicionado.

X


Observações

Exemplos

FUNCTION Exemplo1()
  DEFINE varRec RECORD
                    campo1 CHAR(20)
                 END RECORD
                 
  DEFINE varArrRec RECORD
                 data ARRAY[3] OF RECORD
                          campo1 CHAR(20)
                      END RECORD
               END RECORD
  
  # Adiciona novo campo no record.
  AddMember(varRec,"campo2","CHAR(50)")
  
  # Adiciona novo campo Array de Record
  AddMember(varArrRec.data,"campo2","CHAR(50)")
END FUNCTION

FUNCTION Exemplo2()
  DEFINE varRec RECORD END RECORD
                 
  DEFINE varArrRec RECORD
                      data ARRAY[] OF RECORD END RECORD
                   END RECORD
  
  # Adiciona novo campo ao record que inicialmente está vazio.
  AddMember(varRec,"campo1","CHAR(50)")
  
  # Adiciona novo campo Array de Record que inicialmente está vazio.
  AddMember(varArrRec.data,"campo1","CHAR(50)")
  
  # Adiciono 3 itens ao array de record
  CALL ArrayAddItem(varArrRec.data,3)
  
  # Inicialização do Array
  INITIALIZE varArrRec.* TO NULL
END FUNCTION

Abrangência

Disponível a partir da Build 7.00.101202

Veja também