Página 1 de 1

Obter quantidade e lista de variaveis de um objeto em harbou

Enviado: 02 Out 2023 11:09
por Cavalo Marinho
Olá pessoal
Gostaria de saber se é possível obter o numero de atributos e os nomes destes atributos de um objeto em harbour
fazendo uma paralelo, em uma tabela eu tenho como obter a quantidade de campos com fcount() e obter os nomes com field(a) onde a é a posição do campo na tabela
Resumindo: eu queria saber como fazer para obter o numero de atributos(variáveis) de um objeto e percorrer neste objeto para saber o nome e tipos destes atributos.
Obrigado desde já

Obter quantidade e lista de variaveis de um objeto em harbou

Enviado: 02 Out 2023 11:38
por JoséQuintas
Isso não é um uso normal, mas talvez encontre nos fontes do harbour/xharbour.
Dê uma pesquisada nas rotinas de OLE e em Activex, e talvez encontre alguma coisa.
Se for pra olhar manualmente, talvez o VB6 ajude.

Obter quantidade e lista de variaveis de um objeto em harbou

Enviado: 02 Out 2023 15:14
por bencz
Segue documentação:
https://harbour.github.io/doc/harbour.h ... tvaluelist

Código: Selecionar todos

aObjetos := __objGetValueList(oModelClass, nil, HB_OO_CLSTP_EXPORTED)
    FOR I := 1 TO LEN(aObjetos)