funcao q retorne em stringlist os componentes

Question

Boa dia pessoal

Vc sabe me dizer se existe alguma fun��o no Delphi que me retorno em um StringList todo os componentes de uma terninada classe passada como paramentro na funcao?

Ex: QtdDeComponete(TTable, screen.ActiveFormf)

Ela me retornaria por exemplo

StringList[0].Text = �CadCli�
StringList[1].Text = �EndCli�

Nildo · Answer

Utilize esta funcao, estou meio sem tempo pra aprimorar mais ela, mas funciona assim mesmo.
Ela vai te retornar a quantidade de componentes com aquela determinada classe. Voce pode alterar ela pra salvar o nome do componente na stringlist.

function QtdDeComponete( Classe: string; Formulario: TForm): Integer;
var
   nAux: Integer;
begin
   Result := 0;

   for nAux := 0 to Formulario.COmponentCount - 1 do
      if Formulario.COmponents[ nAux ].ClassNameIs( Classe ) then
         Inc( Result );
end;

Rodrigo Ferreira · Answer

heheheh Blz amigo eu nao tinha pensado nisso .Obrigado..........

F�rum funcao q retorne em stringlist os componentes #222557