Como passar a referencia de uma classe para uma funcao?
Aoba!
To precisando do seguinte:
Tenho um DataModule no projeto, chamado DMConsultaConf. A classe dele eh TDMConsultaConf, e o TDMConsultaConf eh uma class do tipo TDataModule.
criei uma funcao que pede o TDMConsultaConf como parametro (veja bem, eh o TDMConsultaConf, nao o DMConsultaConf).
O que eu quero saber eh o seguinte: como que eu peço o TDMConsultaConf como parametro? O TDMConsultaConf eh uma [b:c98ba85775]Class Reference[/b:c98ba85775], e nao um [b:c98ba85775]TDataModule[/b:c98ba85775].
quase deu certo. Soh que eu preciso usar o comando
e o CreateNew soh tem no TForm e do TDataModule.
Como que eu faco isso??
Me ajudem ae, por favor!!!!
Valeuz![/code]
To precisando do seguinte:
Tenho um DataModule no projeto, chamado DMConsultaConf. A classe dele eh TDMConsultaConf, e o TDMConsultaConf eh uma class do tipo TDataModule.
criei uma funcao que pede o TDMConsultaConf como parametro (veja bem, eh o TDMConsultaConf, nao o DMConsultaConf).
procedure ClonaDM (original, clone : TDataModule; classe : ?????);
O que eu quero saber eh o seguinte: como que eu peço o TDMConsultaConf como parametro? O TDMConsultaConf eh uma [b:c98ba85775]Class Reference[/b:c98ba85775], e nao um [b:c98ba85775]TDataModule[/b:c98ba85775].
classe :TClass
classe.CreateNew();
e o CreateNew soh tem no TForm e do TDataModule.
Como que eu faco isso??
Me ajudem ae, por favor!!!!
Valeuz![/code]
_chiappone_
Curtidas 0
Respostas
Afarias
30/08/2004
type TDMConsultaConfClass = class of TDMConsultaConf;
procedure ClonaDM(Original, Clone: TDataModule; Classe: TDMConsultaConfClass);
T+
GOSTEI 0
_chiappone_
30/08/2004
Valeu kra!!!
Naum foi bem isso q eu usei, ms clareou a minha mente!!!
Naum foi bem isso q eu usei, ms clareou a minha mente!!!
GOSTEI 0