Exemplo De Classe

TClasse1 = class(TObject)

private //Apenas os membros da própria classe podem acessá-lo

FCampo1: Integer; //Campo

FCampo2: String; //Campo

protected //Apenas os membros da própria classe e da classe Filho podem acessar

function GetCampo2: String; //Método Tratamento de Leitura

procedure SetCampo2(const Value: String); //Método Tratamento de Escrita

public //Qualquer um pode acessar

constructor Create;

destructor Destroy; override;

function Metodo1: Boolean; //Método

procedure Metodo2; //Método

property Propriedade1: Integer //Acesso aos Campos diretamentes. Encapsulamento

read FCampo1

write FCampo1;

published //Igual ao public porém fornece informções em runtime

property Propriedade2: String //Acesso aos Campos por meio de métodos de validação. Encapsulamento

read GetCampo2

write GetCampo2;

end;

TClasse1 = class(TObject)

private //Apenas os membros da própria classe podem acessá-lo

FCampo1: Integer; //Campo

FCampo2: String; //Campo

protected //Apenas os membros da própria classe e da classe Filho podem acessar

function GetCampo2: String; //Método Tratamento de Leitura

procedure SetCampo2(const Value: String); //Método Tratamento de Escrita

public //Qualquer um pode acessar

constructor Create;

destructor Destroy; override;

function Metodo1: Boolean; //Método

procedure Metodo2; //Método

property Propriedade1: Integer //Acesso aos Campos diretamentes. Encapsulamento

read FCampo1

write FCampo1;

published //Igual ao public porém fornece informções em runtime

property Propriedade2: String //Acesso aos Campos por meio de métodos de validação. Encapsulamento

read GetCampo2

write GetCampo2;

end;

TClasse1 = class(TObject)

private //Apenas os membros da própria classe podem acessá-lo

FCampo1: Integer; //Campo

FCampo2: String; //Campo

protected //Apenas os membros da própria classe e da classe Filho podem acessar

function GetCampo2: String; //Método Tratamento de Leitura

procedure SetCampo2(const Value: String); //Método Tratamento de Escrita

public //Qualquer um pode acessar

constructor Create;

destructor Destroy; override;

function Metodo1: Boolean; //Método

procedure Metodo2; //Método

property Propriedade1: Integer //Acesso aos Campos diretamentes. Encapsulamento

read FCampo1

write FCampo1;

published //Igual ao public porém fornece informções em runtime

property Propriedade2: String //Acesso aos Campos por meio de métodos de validação. Encapsulamento

read GetCampo2

write GetCampo2;

end;