xHarbour 100% Orientado a Objetos - Uma pequena introdução

[Maligno]

Peraí. Que negócio é esse de flag de índice no header do DBF? Fazia muito tempo que tinha visto a descrição da estrutura de um header de DBF. Olhei de novo só pra confirmar. Não tem qualquer informação acerca de índice nele.

[Stanis Luksys]

hehe...

Assim fica difícil né. Com o tempo, este tipo de afirmação, pode tirar a credibilidade das respostas obtidas aqui do forum.

Mas eu gostaria de ver mesmo como é que se cria uma propriedade numa classe em tempo real. Também quero aprender.

[Maligno]

Mas eu gostaria de ver mesmo como é que se cria uma propriedade numa classe em tempo real.

Em tempo de execução você quer dizer. Pois somos dois. Também fiquei curioso.

[Stanis Luksys]

Issooo... O famoso "run-time"...

[Edsones]

Olá a todos.

Me desculpem se o termo "DATA" complicou a pergunta, imaginei o contrário, mas realmente estava falando de propriedades da classe.
Tenho um sistema administrativo que cria formulários em tempo de execução por dicionário de dados, e estou passando essa rotina para OOP. E no projeto, seria muito útil, que eu conseguisse definir classes e suas propriedades, em tempo de execução.

ericmagaldi
Obrigado pela atenção e gostaria sim de sua ajuda se possível, pois sei que é possivel fazer isso no xhabour.

[esbasso]

è possivel sim manipular as CLASSES criando novas proriedades e metodos
Abaixo a lista

__ObjSetValueList() Set object with an array of DATA names and values
__objAddData() Add a DATA to an already existing class
__objAddInline() Add an INLINE to an already existing class
__objAddMethod() Add a METHOD to an already existing class
__objDelData() Delete a DATA (instance variable) from class
__objDelInline() Delete a METHOD INLINE from class
__objDelMethod() Delete a METHOD from class
__objDerivedFrom() Determine whether a class is derived from another class
__objGetMethodList() Return names of all METHOD for a given object
__objGetMsgList() Return names of all DATA or METHOD for a given object
__objGetValueList() Return an array of DATA names and values for a given object
__objHasData() Determine whether a symbol exist in object as DATA
__objHasMethod() Determine whether a symbol exist in object as METHOD
__objModInline() Modify (replace) an INLINE method in an already existing class
__objModMethod() Modify (replace) a METHOD in an already existing class

[dlemes]

Uma dúvida,

harbour tem suporte a "métodos mágicos"? se alguém tem dúvidas do que eu estou falando veja http://www.php.net/manual/pt_BR/languag ... ng.methods

se for possível da para criar os famosos métodos findByCampo como no RubyOnRails, Grails e outros tantos frameworks...

[lugab]

Que sorte minha, terem upado esse tópico.

Não fosse assim eu nunca saberia da existência dele, que é uma ótima aula de programação pra mim...

Gabriel

[raquelreis]

Que ótimo esse tópico. Programo(tento né...) em Java, e não imaginei que pudesse trabalhar OOP com xHarbur(parecido com clipper).
Parabéns!

[bencz]

Olá (:
Eu estou tendo problemas com esse código...
segue foto:



Como posso resolver esse problema ??

[alxsts]

Olá!

O problema não é no código.

DOS Erro 2 - File not found. O programa está tentando abrir a tabela Clientes.Dbf e não a está encontrando no local especificado.

Revise o caminho especificado ou coloque o arquivo (e prováveis arquivos de índice) na pasta onde o programa os espera encontrar.

[bencz]

Olá
Eu simplesmente peguei o código do tutorial e copiei...

onde eu posso conseguir esse arquivo, ou criar ele ??

[alxsts]

Olá!

O código hipotético do exemplo não fornece a tabela. Salve o código abaixo e compile. Depois execute na pasta onde está o executável do exemplo.

Código: Selecionar todos

FUNCTION CriaTbCli()

LOCAL aArray, nInd, nLen

   aArray := {}

   AAdd( aArray, { "Codigo", "N", 3, 0 }, { "Nome", "C", 50, 0 } )

   DbCreate( "Clientes", aArray )


   aArray := {}

   AAdd( aArray, { 1, "VARIG" } )
   AAdd( aArray, { 2, "VASP" } )
   AAdd( aArray, { 3, "TRANSBRASIL" } )
   AAdd( aArray, { 4, "CRUZEIRO DO SUL" } )
   AAdd( aArray, { 5, "PANAM" } )
   AAdd( aArray, { 6, "BRANIFF" } )

   USE Clientes EXCLUSIVE NEW

   nLen := Len( aArray )

   FOR nInd := 1 TO nLen
      Clientes->( DbAppend() )
      Clientes->codigo := aArray[ nInd, 1 ]
      Clientes->nome := aArray[ nInd, 2 ]
   NEXT

   Clientes->( DbCloseArea() )

   RETURN NIL
         

[bencz]

Ok, tive o seguinte erro...

main.prg(7) Error E0021 Incorrect number of arguments in AADD

[Stanis Luksys]

Opa,

Troque a linha por estas duas:

Código: Selecionar todos

AAdd( aArray, { "Codigo", "N", 3, 0 } )
AAdd( aArray, { "Nome",  "C", 50, 0 } )

Note que no exemplo original, o código é tipo caracter, tamanho 5, e não numérico como foi colocado agora.

Abraços.