obrigado jean ,valeu pela ajuda, sim, desta maneira dá certo, só que eu queria um tipo de criação onde eu passe apenas o nome do dm e a procedure/function se vire na criação, dessa maneira ai já tenho no sistema.
Jean Barreiros <[EMAIL PROTECTED]> escreveu: 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] ---------------------------------------------------------------------------------------- Uberdam Cavaletti Formado em Tecnologia da Informação - Unoesc - Xxe Pós-graduado em desenvolvimento Java - Unoesc - Xxe --------------------------------- http://www.curricular.com.br/berdam Visite http://passandoveneno.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]