E so para incrementar eu uso o CNPack e sempre que preciso fazer algo do tipo instalo o GExpet apenas para fazer isso, esta e a melhor solucao que ja encontrei para substituir um texto em varios .PAS e DFM !!!!
Eduardo Ricardo César Cardoso escreveu: > > > A idéia do teu componente é muito boa, mas se vc usa o GExperts ele > tem uma função que faz isso que vc quer... Troca os componentes de uma > classe para a outra e ainda gera um log de tudo o que foi alterado. > > Se entendi bem, acho que é o que você está procurando... > > []'s > Ricardo. > > 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS. > > 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor > compreendida. > > 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante! > > --- Em seg, 27/7/09, Jeferson Menegon <jeferson_mene...@yahoo.com.br > <mailto:jeferson_menegon%40yahoo.com.br>> escreveu: > > > > O meu problema é o seguinte, tenho um ERP, com mais de 80 DataModulo. Não > > tenho idéia de quantas QUERY tem o projeto. > > A idéia seria mudar no DFM e o PAS em (designer) , alterando na unha é > > normal, funciona, já realizei um teste em uma tela e funcionou. > > Até onde eu estou vendo três soluções. > > 1 – FindReplace PAS e DMF. > > 2 – Remover todos os Fields da query do tipo numérico e adicionar > novamente > > e > > 3 –Fazer um componente que altere essa classe (Um robô onde adiciono no > > DataModulo e o mesmo altera). > > código: > > ------------ --------- --------- --------- --------- --------- - > > ------------ --------- --------- ----- > > unit AlteraField; > > interface > > uses > > SysUtils, Classes; > > type > > TAlteraField = class(TComponent) > > private > > { Private declarations } > > falterar : boolean; > > procedure ProcAlterarField( value : boolean); > > protected > > { Protected declarations } > > public > > { Public declarations } > > published > > { Published declarations } > > property AlterarField : boolean read falterar write ProcAlterarField; > > end; > > procedure Register; > > implementation > > uses DB; > > procedure Register; > > begin > > RegisterComponents( 'Standard' , [TAlteraField] ); > > end; > > { TAlteraField } > > procedure TAlteraField. ProcAlterarField (value: boolean); > > var i_conta : integer; > > vComp : TComponent; > > begin > > if value then > > begin > > for i_conta := 0 to Owner.ComponentCoun t -1 do > > begin > > vComp := Owner.Components[ i_conta]; > > if ( vComp is TFloatField ) then > > begin > > if ( TFloatField( vcomp).Size > 3 ) then > > begin > > //alterar algum propriedade ... > > //caso altere alguma propriedade aqui, automaticamente altera o > > DFM. > > //se conseguir alterar a classe altera de maneira automatica o > > PAS e DFM. > > TFloatField( vcomp).Tag := 100; > > end; > > end; > > end; > > end; > > falterar := false; > > end; > > end. > > ------------ --------- --------- --------- --------- --------- - > > ------------ --------- --------- ----- > > De: delphi...@yahoogrup os.com.br [mailto:delphi...@yahoogrup > os.com.br] Em > > nome de Rubem Rocha > > Enviada em: segunda-feira, 27 de julho de 2009 13:27 > > Para: delphi...@yahoogrup os.com.br > > Assunto: RES: [delphi-br] É possível alterar a classe de um objeto já > criado > > ? > > Prioridade: Alta > > Até onde me consta, isto vai contra o que se propõe a programação > orientada > > a objetos. Imagine a seguinte hierarquia de classe: > > Animal -> Mamífero -> Carnívoro -> Canídeo -> Cão > > Animal -> Mamífero -> Carnívoro -> Humanídeo -> Homem > > Como pode criar um objeto de uma classe e depois, do nada, querer que ele > > seja de uma outra classe? Tomando o exemplo acima, como um homem, do nada, > > pode se tornar um cão? Isso é ilógico! > > Sds. > > De: delphi...@yahoogrup os.com.br <mailto:delphi- br%40yahoogrupos > .com.br> > > [mailto:delphi...@yahoogrup os.com.br <mailto:delphi- br%40yahoogrupos > .com.br> > > ] Em > > nome de Jeferson Menegon > > Enviada em: segunda-feira, 27 de julho de 2009 11:33 > > Para: delphi...@yahoogrup os.com.br <mailto:delphi- br%40yahoogrupos > .com.br> > > Assunto: [delphi-br] É possível alterar a classe de um objeto já criado ? > > Boa tarde! > > Gostaria de saber se é possível alterar a classe de um > > objeto já criado? > > Porque estamos fazendo uma analise de impacto para migrar do > > Delphi 6 para o Delphi 2007. A necessidade seria para os campos que a > > decimal é > > maior que TRES (3). Hoje o tipo de dados > > é TFloatField teríamos que trocar para > > TFMTBcdField. > > Desde já agradeço. > > > > > > > > > > > __________________________________________________________ > Veja quais são os assuntos do momento no Yahoo! +Buscados > http://br.maisbuscados.yahoo.com <http://br.maisbuscados.yahoo.com> > > [As partes desta mensagem que não continham texto foram removidas] > >
