Discussion :

[MelkInarian]

Bonjour,
J'ai remarqué, dans un code, que le concepteur avait déclaré sa fonction dans la zone private et qu'ensuite dans le corps de la fonction il utilisait les objets de la Form1 sans aucune autre référence. Je me suis donc dit que le fait d'avoir ainsi fait la déclaration autorisait une telle utilisation des objets.
J'ai tenté la même chose avec la procédure ci-dessous, mais j'ai un arrêt à la compilation avec le message:

Identificateur non déclaré:'Clas1Niv'

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Procedure CalculNiveauGlobal();
begin
  // Calcul du niveau global du PJ/PNJ
  if Clas1Niv.Text <> '' then     // un niveau pour la classe de base à été saisi
    NGlobal := NGlobal + StrToInt(Clas1Niv.Text);
  if Clas2Niv.Text <> '' then     // un niveau pour la 2ème classe à été saisi
    NGlobal := NGlobal + StrToInt(Clas2Niv.Text);
  if Clas3Niv.Text <> '' then     // un niveau pour la 3ème classe à été saisi
    NGlobal := NGlobal + StrToInt(Clas3Niv.Text);
  if Clas4Niv.Text <> '' then     // un niveau pour la 4ème classe à été saisi
    NGlobal := NGlobal + StrToInt(Clas4Niv.Text);
  NivGlobal.Caption := IntToStr(NGlobal);
end;

ma procédure sert, comme vous pouvez le voir, à calculer la somme de 4 Tedit dès que l'on sort de l'un des 4.

Merci d'éclairer ma luciole.

[Gilbert Geyer]

Il faut :
- soit remplacer Procedure CalculNiveauGlobal(); par Procedure TForm1. CalculNiveauGlobal(); (recommandé si cette routine est déclarée dans le type TForm1)
- ou bien remplacer partout NGlobal := NGlobal + StrToInt(Clas3Niv.Text); par Form1.NGlobal := Form1.NGlobal + StrToInt(Form1.Clas3Niv.Text);

[MelkInarian]

Il faut :
- soit remplacer Procedure CalculNiveauGlobal(); par Procedure TForm1. CalculNiveauGlobal(); (recommandé si cette routine est déclarée dans le type TForm1)
- ou bien remplacer partout NGlobal := NGlobal + StrToInt(Clas3Niv.Text); par Form1.NGlobal := Form1.NGlobal + StrToInt(Form1.Clas3Niv.Text);

Merci c'est bien çà et je ne l'avais pas vu!