Array
(
)

Como passar a referencia de uma classe para uma funcao?

_chiappone_
   - 30 ago 2004

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).

#Código

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 Class Reference, e nao um TDataModule.

#Código
classe :TClass
quase deu certo. Soh que eu preciso usar o comando #Código
classe.CreateNew();

e o CreateNew soh tem no TForm e do TDataModule.

Como que eu faco isso??
Me ajudem ae, por favor!!!!

Valeuz!


Afarias
   - 30 ago 2004

#Código


type
TDMConsultaConfClass = class of TDMConsultaConf;


#Código

procedure ClonaDM(Original, Clone: TDataModule; Classe: TDMConsultaConfClass);




T+


_chiappone_
   - 30 ago 2004

Valeu kra!!!

Naum foi bem isso q eu usei, ms clareou a minha mente!!!