E se você, simplesmente, abrir o .DPR para dentro de TMemo?

 Luciano Calenzani Simões






________________________________
De: dhsb <[EMAIL PROTECTED]>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Terça-feira, 2 de Dezembro de 2008 13:23:22
Assunto: [delphi-br] Listar Units


Pessoal preciso listar todos os nomes das minhas units encontrei o 
codigo abaixo. 

for i := 0 to Screen.FormCount - 1 do
MUnits.Lines. Add(GetTypeData( Screen.Forms[ i].ClassInfo) ^.UnitName 
+ ' {' + Screen.Forms[ i].Caption + '} ');

So que tem um problema, ele so lista as units dos forms que estao 
criados. O problema e que eu tenho from que crio em rum time, dai ele 
nao lista. Tem como eu corrigir este procedimento para listar todas as 
units?    


      Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com

[As partes desta mensagem que não continham texto foram removidas]

Responder a