Video: Curso Online-Dominando a Orientação a Objetos e Componentes em Delphi (Avançado)-Parte VI-Continuando com a definição da nossa camada de persistência

Veremos a implementação dos métodos Insert e de uma rotina auxiliar para verificar se um dos campos sofreu alteração.

Título: Curso Online-Dominando a Orientação a Objetos e Componentes em Delphi (Avançado)-Parte VI-Continuando com a definição da nossa camada de persistência

Tempo: 16:00 min

Mini Resumo: Dando continuidade ao nosso curso de Programação Orientada a Objetos, na aula de hoje continuaremos com a definição da nossa camada de persistência onde veremos a implementação dos métodos Insert e de uma rotina auxiliar para verificar se um dos campos sofreu alteração. Não é costume para grande maioria dos desenvolvedores trabalharem com Interfaces na criação de seus projetos Win32. Mas um bom passo para uma melhora na capacidade de abstração é a utilização desse recurso. Nesse vídeo de hoje usando o banco de dados que acompanha o curso iremos testar as rotinas mencionadas acima. Considero essa aula como sendo uma excelente abordagem de como poderemos utilizar na prática a OOP para criarmos sistemas mais padronizados e confiáveis. Se você esta habituado a trabalhar de forma procedural em seus aplicativos, eis uma oportunidade de aprender a organizar o seu código fonte e melhorar o seu Know How.

Tecnologias utilizadas: Borland Delphi.

Palavras chaves: Borland Delphi, Orientação a Objetos, Pascal.

2 COMENTÁRIOS

[Fechar]

Este post é fechado - você precisa ter acesso ao post para incluir um comentário.

Marlon Tiedt

Renato estou acompanhando sua série de vídeos aulas e elas estão cada vez melhores.
A minha dúvida é a seguinte, pq para cada property você cria um evento de leitura e escrita. Porém está certo eu criar functions e/ou procedures sem ter property vinculadas?

Está o código de exemplo que estou implementando.

[]s,

Marlon

unit unIdblockupcmb;

interface

uses Variants, Classes, DB, DBClient, DBCtrls;

type
   ICDSDados = interface
   ['{0C15067C-BA00-4B7A-8EA1-ADEDBBB44370}']
      function get_CDS : TClientDataSet;
      procedure set_CDS( Value : TClientDataSet);

      procedure AddFields(Name: string; DataType: TFieldType; Size: Integer; Required: Boolean);
      procedure AddFieldsComboBox(Value : TDBLookupComboBox);
      //
      property CDS : TClientDataSet read get_CDS write set_CDS;
   end;

   TCDS = class(TInterfacedObject, ICDSDados)
   private
      FCDS : TClientDataSet;
   protected
      function get_CDS : TClientDataSet; virtual;
      procedure set_CDS(Value: TClientDataSet); virtual;
      procedure AddFields(Name: string; DataType: TFieldType; Size: Integer; Required: Boolean);
      procedure AddFieldsComboBox(Value : TDBLookupComboBox);
   public
      constructor Create;
      destructor Destroy; override;
   end;

[há +1 ano] - Responder

[autor] Renato Matos

Bom dia,

Para acessar campos privados você pode optar por:

a) criar métodos get e set para isso (encapsulamento)

b) criar propriedades acessando diretamente esses campos

property A: Integer read FA write FA

c) criar propriedades acessando os métodos desses campos

property A: Integer read getA write setA

Quando se trabalha com Interfaces você não pode usar propriedades que acessam campos e sim métodos.

Mas se você desejar, poderá substituir as propriedades por métodos de leitura e escrita. Acontece que existem atributos (propriedades como Cor, Tamanho, Peso, etc) que ficam mais fáceis de serem percebidos quando usamos propriedades.