30/08/2004

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

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
quase deu certo. Soh que eu preciso usar o comando
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_

Respostas

30/08/2004

Afarias

type
  TDMConsultaConfClass = class of TDMConsultaConf;


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




T+


Responder Citar

30/08/2004

_chiappone_

Valeu kra!!!

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


Responder Citar