ComponentCount...Résolu

Question

Bonjour,
En cherchant à réaliser une procedure réutilisable je tombe sur cette erreur:
(ComponentCount composant non déclaré)
dans le même Form la première passe et la seconde génère l'erreur.


Ps : j'ai déclaré la procedure avant (implementation) procedure Hello();


procedure TMenuPrincipal.BtnHelloClick(Sender: TObject);
  var i: integer;
begin
  for i := 0 to ComponentCount - 1 do  (* <<--  passe sans problème *)
    if Components[i] is TEdit then
    TEdit(Components[i]).Text := 'HELLO !';
end;


procedure Hello();
  var i: integer;
begin
  for i := 0 to ComponentCount - 1 do  (* <<--  ComponentCount composant non déclaré *)
    if Components[i] is TEdit then
    TEdit(Components[i]).Text := 'HELLO !';
end;


Merci d'avance !
@+

DRJEROME · Accepted Answer

Salut ;)

utilise "MenuPrincipal.ComponentCount"  plutôt que "ComponentCount" qui n'est pas reconnu seul dans une procédure isolée 

DrJerome

cs_viva · Answer

Merci DRJEROME,
votre Réponse me convient !
@+

cs_Loda · Answer

salut,

si tu veux faire une procedure reutilisable, passe ton TMenu et ton String en parametres. (regarde les exemples de l'aide pour comprendre comment faire)

Bon Code,

ComponentCount...

3 réponses

Votre réponse

Discussions similaires