Fórum POO-inherited, assign, procedure/function of object e outros #356640

Caros colegas

Se alguém tiver algum tutorial que explique em detalhes os itens abaixo, favor enviar para meu e-mail delmar.delmar@gmail.com ou delmar@deltacorp.com.br

-----------------------------------------------------------
constructor Create;
versus
constructor Create(AOwner: TComponent); override;

Exemplo:

constructor Tcomputador.Create;
begin
inherited Create;
monitor := Tmonitor.Create;
end;

versus

constructor Tcpu.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
fdrive := Tdrive.create;
end;
-----------------------------------------------------------
-----------------------------------------------------------
inherited Assign(ANotebook);
vesus
um método Assign sem herança


Exemplo:


procedure Tnotebook.Assign(ANotebook: TNotebook);
begin
inherited Assign(ANotebook);
bateria := ANotebook.bateria;
teclado := ANotebook.maleta;
end;

versus

procedure TEndereco.Assign(AEndereco: TEndereco);
begin
Rua := AEndereco.Rua;
Numero := AEndereco.Numero;
Complemento := AEndereco.Complemento;
end;
-----------------------------------------------------------
-----------------------------------------------------------
propriedade públicas
versus
propriedade privadas

Exemplo:

public
property Codigo: string read fCodigo write fCodigo;

versus

published
property Rua: string read fRua write fRua;
-----------------------------------------------------------
-----------------------------------------------------------
o uso de:
GetTipoItem: function: string of object;
-----------------------------------------------------------
-----------------------------------------------------------

Já li no help do delphi 7 e gostaria de reunir algum material em português para elucidar dúvidas sobre as diversas formas de aplicar o inherited create, por exemplo e os demais casos que citei acima. Se tiverem tutorias mais completos podem enviar também ou links de sites com documentação sobre o assunto

Agradeço a todos que de boa vontade puderem ajudar
abraço e bom fim de semana

Delmar