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 !
@+