Fórum Listar nome de todos os formularios do projeto #371017
05/06/2009
0
Delmar
Curtir tópico
+ 0Posts
05/06/2009
Woinch
Gostei + 0
05/06/2009
Danielrsanches
procedure TForm1.Button1Click(Sender: TObject); var I: word; begin for I:=0 to application.ComponentCount-1 do begin if application.Components[I].ClassParent = TForm then showmessage((application.Components[I] as TForm).ClassName); end; end;
Gostei + 0
08/06/2009
Delmar
Gostei + 0
08/06/2009
Danielrsanches
Gostei + 0
08/06/2009
Woinch
Gostei + 0
08/06/2009
Delmar
Pode ser o projeto ler seu próprio projeto (project >> view source) ou pode ser um terceiro projeto, ou uma ferramente de terceiro ou componente, não importa como, desde que chegamos ao resultado esperado.
Eu mesmo já pensei em ler o arquivo e ir extraindo linha por linha, pois o que preciso está aí dentro.
program xxxxxx; uses Forms, fprincipal in ´fprincipal.pas´ , fendereco in ´fendereco.pas´ , fcidade in ´fcidade.pas´ , fatividade in ´fatividade.pas´ , fbairro in ´fbairro.pas´ , fsaque in ´fsaque.pas´ , fmovimento in ´fmovimento.pas´ , fhistorico in ´fhistorico.pas´ ;
E antes que eu seja perguntado, o objetivo é ober a lista para realizar uma formatação padrão em todo projeto, usando Delphi For Ex.
De forma automatizada, poderíamos obter a lista atualizada, sempre que julgase necessário aplicar a padranização de nomes em todo código do programa, que tem em média 400 unidades/Units.
Mas como é possível que já exista uma solução pronta, resolvi perguntar.
Gostei + 0
09/06/2009
Weber
Se for isto e se puder ser um aplicativo separado basta carregar o project.dpr para uma StringList e depois fazer um ´for´
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)