Cara aho que basta você usar isso: if not Assigned(dmCadastros) then dmCadastros := TdmCadastros. Create(Self) ; Jean Barreiros Programador/Web-Designer Delphi, C++, PHP, JavaScript FireBird/InterBase, MySql, SQLServer, PostGree, Oracle msn: [EMAIL PROTECTED] e-mail: [EMAIL PROTECTED]
----- Mensagem original ---- De: Berdam <[EMAIL PROTECTED]> Para: Delphi <delphi-br@yahoogrupos.com.br> Enviadas: Sexta-feira, 30 de Maio de 2008 9:46:01 Assunto: [delphi-br] Criando dm Galera, eu tenho que testar se o dm está criado ou não, eu fiz essa função abaixo, tem alguma maneira de fazer isso genérico?? Será que não tem alguma maneira de criar o dm apenas passando nome, eu até fiz a função, mas não fui pra frente no momento em que testo o tipo dele (Tdatamodule) , alguém por favor pode dar uma ajuda?? procedure TFSinprod.CriaDm( dm:String) ; begin if dm = 'dmcadastros' then if not Assigned(dmCadastro s) then begin dmCadastros := TdmCadastros. Create(Self) ; end end; ------------ --------- --------- --------- --------- --------- - Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe ------------ --------- --------- --- http://www.curricul ar.com.br/ berdam Visite http://passandovene no.blogspot. com ------------ --------- --------- --------- --------- --------- - ------------ --------- --------- --- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas] Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! http://br.mail.yahoo.com/ [As partes desta mensagem que não continham texto foram removidas]