FONT-FAMILY: Verdana; mso-ansi-language: PT-BR"> Codificando e gerando classes Inicie um novo projeto no Delphi e salve-o. Inclua uma nova unit e salve-a como “BusinessModel.pas”. Acesse o menu ModelMaker>Run ModelMaker Pascal Edition. Agora no ModelMaker abra o projeto do curso e na guia Modules clique com o botão direito sobre Classes not assigned to modules e escolha Add new Module. Agora é preciso escolher em qual unit as classes serão geradas e quais classes serão geradas nessa unit. É possível determinar que cada classe tenha sua própria unit ou gerar todas as classes em uma só. Veja na Figura 1, como deve ficar o módulo. Nota: Eu recomendo a geração de uma unit por classe, isso facilita na hora da manutenção, para dividir as tarefas para a equipe. Como nosso projeto é simples, decidi criar as classes em uma única unit, a BusinessModel. Figura 1. Escolhendo a unit onde serão geradas as classes Vamos implementar os métodos Get/Set das propriedades das classes TRevista e TArtigo, e faremos isso dentro do próprio ModelMaker. Na guia Classes, clique sobre TRevista, observe que abaixo são exibidas as propriedades, métodos e campos da classe, de acordo com o filtro de visualização. Clique sobre o método GetEmail, acesse a guia Implementation e digite o seguinte código: Result := _Email.Value; Implemente também o método SetEmail com o seguinte código: _Email.Value := Value; Faça o mesmo para os outros Gets/Sets da classe TRevista. Ao terminar vamos gerar a classe TRevista. Primeiramente devemos habilitar a geração de código, que por padrão é bloqueada. Observe que temos na barra de atalhos dois botões que são representados por um cadeado aberto e outro fechado (Figura 2). Figura 2. Habilitando a geração de código Clique sobre o cadeado aberto, para a geração de código ficar habilitada. Na guia Modules clique sobre o botão Generate (), caso seja solicitada alguma confirmação, por hora, confirme. Acesse o Delphi, sem fechar o ModelMaker e veja que ambas as classes TRevista e TArtigo estão implementadas. Você vai observar que os métodos de TArtigo não estão completos. Para mostrar o nível de integração do Delphi e do ModelMaker vamos fazer o inverso, vamos implementar os métodos de TArtigo no Delphi e pedir para que sejam atualizados no ModelMaker. Implemente os Gets/Sets como feito em TRevista, a diferença estará para o Get/Set da propriedade TArtigo.Revista, que deverá ser implementada conforme o seguinte código: function TArtigo.GetRevista: TRevista; begin Result := _Revista.Value as TRevista; end; procedure TArtigo.SetRevista(Value: TRevista); begin _Revista.Value := Value; end; É preciso também adicionar à cláusula uses a unit InstantPersistence e criar a seção Initialization para registrar as classes, que é um requisito do InstantObjects, conforme o seguinte código: initialization InstantRegisterClasses([TRevista, TArtigo]); ...
Artigo Clube Delphi 78 - Mini-Curso de Delphi e UML - Parte III
Veremos neste artigo como gerar o código Delphi a partir do ModelMaker para construirmos nossa aplicação.
Confira outros conteúdos:
Perguntas frequentes
Nossos casos de sucesso
Eu sabia pouquíssimas coisas de programação antes de começar a estudar com vocês, fui me especializando em várias áreas e ferramentas que tinham na plataforma, e com essa bagagem consegui um estágio logo no início do meu primeiro período na faculdade.
Estudo aqui na Dev desde o meio do ano passado!
Nesse período a Dev me ajudou a crescer muito aqui no trampo.
Fui o primeiro desenvolvedor contratado pela minha
empresa. Hoje eu lidero um time de desenvolvimento!
Minha meta é continuar estudando e praticando para ser um
Full-Stack Dev!
Economizei 3 meses para assinar a plataforma e sendo sincero valeu muito a pena, pois a plataforma é bem intuitiva e muuuuito didática a metodologia de ensino. Sinto que estou EVOLUINDO a cada dia. Muito obrigado!
Nossa! Plataforma maravilhosa. To amando o curso de desenvolvimento front-end, tinha coisas que eu ainda não tinha visto. A didática é do jeito que qualquer pessoa consegue aprender. Sério, to apaixonado, adorando demais.
Adquiri o curso de vocês e logo percebi que são os melhores do Brasil. É um passo a passo incrível. Só não aprende quem não quer. Foi o melhor investimento da minha vida!
Foi um dos melhores investimentos que já fiz na vida e tenho aprendido bastante com a plataforma. Vocês estão fazendo parte da minha jornada nesse mundo da programação, irei assinar meu contrato como programador graças a plataforma.
Wanderson Oliveira
Comprei a assinatura tem uma semana, aprendi mais do que 4 meses estudando outros cursos. Exercícios práticos que não tem como não aprender, estão de parabéns!
Obrigado DevMedia, nunca presenciei uma plataforma de ensino tão presente na vida acadêmica de seus alunos, parabéns!
Eduardo Dorneles
Aprendi React na plataforma da DevMedia há cerca de 1 ano e meio... Hoje estou há 1 ano empregado trabalhando 100% com React!
Adauto Junior
Já fiz alguns cursos na área e nenhum é tão bom quanto o de vocês. Estou aprendendo muito, muito obrigado por existirem. Estão de parabéns... Espero um dia conseguir um emprego na área.