[delphi-br] Sobre inherited - parte 2
Há um tempo atrás questionei sobre o termo Inherited, onde me
informaram que ele significa faça aquele código contido no herdado
+ o código posterior ao termo. Blz.
Eu, agora estou com a seguinte dificuldade: tenho duas classes: uma
genérica e outra especializada, seguem:
type TUCSacramento = class {classe genérica}
private
codigo_Sacramento:string;
codigo_Paroquiano:string;
tipo_Sacramento:string;
celebrante:string;
data_Inscricao:TDateTime;
inicio_Curso:TDateTime;
termino_Curso:TDateTime;
obs:string;
public
function cadastrar:boolean;
function consultar(var texto:string;id:byte):byte;
function alterar:boolean; virtual;
function excluir(codigo:string):boolean;
end;
function TUCSacramento.consultar(var texto:string;id:byte):byte;
begin
texto:='qualquer coisa';
result:=1;
end;
e a classe especializada:
type TUCBatismo = class(TUCSacramento)
private
padrinho:string;
madrinha:string;
diocese_Batismo:string;
paroquia_Batismo:string;
data_Batismo:TDateTime;
livro_Batismo:string;
folha_Batismo:string;
numero_Batismo:string;
public
function cadastrar:boolean;
function consultar(var texto:string;id:byte):byte;
function alterar:boolean; override;
function excluir(codigo:string):boolean; override;
end;
function TUCBatismo.consultar(var texto:string;id:byte):byte;
begin
inherited;
result:=2;
end;
Meu problema é o seguinte: Eu tenho um código pra ser realizado na
classe Sacramento e um outro na classe batismo. Sendo que na classe
batismo eu preciso que, antes de executar seu respectivo código,
realize o código descrito na classe Sacramento. Então pensei nesse
tal de inherited, porém não estou conseguindo fazê-lo funcionar.
Será que alguém poderia me ajudar?
Re: [delphi-br] Sobre inherited - parte 2
Ricardo,
Ao meu ver, você está colocando quatro objetos em uma classe só.
1) Paróquia
2) Sacramento
3) Curso
4) Celebrante
Identifique as propriedades de cada uma dessas classes e depois monte a
classe TUCSacramento.
Ex.:
Type
TUCSacramento = Class(TObject)
Private
Codigo : Integer;
Paroquia : TUCParoquia;
Celebrante : TUCCelebrante;
Curso : TUCCurso;
TipoSacramento : String;
Observacao : String;
Protected
Public
End;
Quanto ao seu problema, defina o método como VIRTUAL para aproveitar
as facilidades oferecidas pelo polimorfismo e modificar o comportamento
do acessor.
Ex.:
Function Cadastrar : Boolean; Virtual;
Function Consultar(Var Texto: String; ID: Byte): Byte; Virtual;
Sds,
Romario
ricardo_sx escreveu:
Há um tempo atrás questionei sobre o termo Inherited, onde me
informaram que ele significa faça aquele código contido no herdado
+ o código posterior ao termo. Blz.
Eu, agora estou com a seguinte dificuldade: tenho duas classes: uma
genérica e outra especializada, seguem:
type TUCSacramento = class {classe genérica}
private
codigo_Sacramento:string;
codigo_Paroquiano:string;
tipo_Sacramento:string;
celebrante:string;
data_Inscricao:TDateTime;
inicio_Curso:TDateTime;
termino_Curso:TDateTime;
obs:string;
public
function cadastrar:boolean;
function consultar(var texto:string;id:byte):byte;
function alterar:boolean; virtual;
function excluir(codigo:string):boolean;
end;
function TUCSacramento.consultar(var texto:string;id:byte):byte;
begin
texto:='qualquer coisa';
result:=1;
end;
e a classe especializada:
type TUCBatismo = class(TUCSacramento)
private
padrinho:string;
madrinha:string;
diocese_Batismo:string;
paroquia_Batismo:string;
data_Batismo:TDateTime;
livro_Batismo:string;
folha_Batismo:string;
numero_Batismo:string;
public
function cadastrar:boolean;
function consultar(var texto:string;id:byte):byte;
function alterar:boolean; override;
function excluir(codigo:string):boolean; override;
end;
function TUCBatismo.consultar(var texto:string;id:byte):byte;
begin
inherited;
result:=2;
end;
Meu problema é o seguinte: Eu tenho um código pra ser realizado na
classe Sacramento e um outro na classe batismo. Sendo que na classe
batismo eu preciso que, antes de executar seu respectivo código,
realize o código descrito na classe Sacramento. Então pensei nesse
tal de inherited, porém não estou conseguindo fazê-lo funcionar.
Será que alguém poderia me ajudar?
[delphi-br] CSS no asp.net ?
Pessoal, Venho ate aqui pra saber se o que esta acontecendo comigo ja aconteceu com vcs e se sim vcs quem sabe possam mim ajudar. Estou fazendo um site e nas paginas aspx, tem uma folha de estilo esterna (CSS) e nas demias tb, mais quando eu chamo outra pagina ele importar novamente a folha de estilo ficando com 2 folhas a pagina que foi chamanda, assim: vamos supor que na pagina principal (index) esteja tudo certo e alguns links seja em negrito, quando eu clico em um link pra chamar outra pagina por exemplo (cadusers.aspx) ele coloca negrito 2 vezes, uma da pagina atual que nesse caso fica sendo a (cadusers.aspx) e outra da index.aspx, isso ja aconteceu contigo. Em cada pagina eu coloco o codigo abaixo, ja tentei mudar os nomes dos arquivos externos e ate mesmo tirar as formatacoes, mas ele nao deixa, ou acrescenta demais ou tira tudo. Se vc puder mim ajudar serei grato. head title/title link rel=stylesheet type=text/css href=style/basic.css / /head Valeu Leonardo Anselmo [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] CSS no asp.net ?
Leonardo, limpa o cache do seu browser, creio que seja isto. []'s . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . http://www.codegear.com/ Andreano Lanusse Product Line Manager Latin America Caribbean phone 1.831.431.5051 | mobile 1.831.332.5100 | email [EMAIL PROTECTED] 100 Enteprise Way Scotts Valley, CA, 95066 USA www.codegear.com blogs.codegear.com/andreanolanusse ¡Visite CodeGear Developer Network en Español! http://dn.codegear.com/es http://dn.codegear.com/es Visite CodeGear Developer Network em Português! http://dn.codegear.com/br http://dn.codegear.com/br From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of Leonardo Anselmo Sent: Sunday, May 27, 2007 8:33 PM To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] CSS no asp.net ? Pessoal, Venho ate aqui pra saber se o que esta acontecendo comigo ja aconteceu com vcs e se sim vcs quem sabe possam mim ajudar. Estou fazendo um site e nas paginas aspx, tem uma folha de estilo esterna (CSS) e nas demias tb, mais quando eu chamo outra pagina ele importar novamente a folha de estilo ficando com 2 folhas a pagina que foi chamanda, assim: vamos supor que na pagina principal (index) esteja tudo certo e alguns links seja em negrito, quando eu clico em um link pra chamar outra pagina por exemplo (cadusers.aspx) ele coloca negrito 2 vezes, uma da pagina atual que nesse caso fica sendo a (cadusers.aspx) e outra da index.aspx, isso ja aconteceu contigo. Em cada pagina eu coloco o codigo abaixo, ja tentei mudar os nomes dos arquivos externos e ate mesmo tirar as formatacoes, mas ele nao deixa, ou acrescenta demais ou tira tudo. Se vc puder mim ajudar serei grato. head title/title link rel=stylesheet type=text/css href=style/basic.css / /head Valeu Leonardo Anselmo [As partes desta mensagem que não continham texto foram removidas] [As partes desta mensagem que não continham texto foram removidas]
