funcao q retorne em stringlist os componentes

Delphi

26/03/2004

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´


Rodrigo Ferreira

Rodrigo Ferreira

Curtidas 0

Respostas

Nildo

Nildo

26/03/2004

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;



GOSTEI 0
Rodrigo Ferreira

Rodrigo Ferreira

26/03/2004

heheheh Blz amigo eu nao tinha pensado nisso .

Obrigado.......


GOSTEI 0
POSTAR