Discussion :

[Oxygn44]

Bonjour à tous,

J'ai un soucis avec des procedures (ouvertureSheet, ObjetCreate, et Exectest).
Je les ai bien déclaré et programmé. Et delphi à l'air de les reconnaitre.
Un procedure (Test) fait appel à ces 3 procédures dans un enchainement de if then else.
Mais c'est comme si il ne les reconnaissait pas.
Je ne vois pas mon erreur...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
procedure Test();
      begin
        //initialise Num
        Num:=0;
        //ouvre le fichier Cfg.txt
        AssignFile(Fichier, Path+'\Cfg.txt');
        //remet le curseur à zéro
        Reset(Fichier);
        //traitement par ligne
        while not EOF(Fichier) do
          begin
            //lit la ligne
            Readln(Fichier, Ligne);
            Mot:=AnsiLeftStr(Ligne, 1);
            if Mot='$' then
              OuvertureSheet()
            else
              if Mot='*' then
                ObjetCreate()
              else
                if Mot='?' then
                  ExecTest();
          end;
        //ferme le fichier
        CloseFile(Fichier);
      end;

[sat83]

Est ce que ton programme compile?

Est ce que ton programme s'exécute sans erreur?

Exécute ton code en mode pas-à-pas (F8) pour voir où tu passe et où tu ne passe pas.

[Oxygn44]

Sat, en fait, il ne compile pas tant que les procédures ne passent pas.
il me met identificateur non déclaré.
Pourtant mes procédures sont bien déclarées.
Je ne comprends pas.

Si j'écris par exemple OuvertureSheet(); dans une autre procedure, ça passe très bien, il reconnait l'appel à la procédure. Elle est donc bien déclarée je pense.
A croire que c'est ma structure ExecTest qui plante.

[sat83]

il ne compile pas

Ta procédure/fonction ne dois pas être déclarée correctement.

Est-ce qu'elle fais partie d'une classe? Si oui, a tu vérifier que ta procédure soit précéder du nom de ta classe?

par exemple :

procedure TForm1.OuvertureSheet ;

Sinon as tu déclarer ta méthode avant de l'appeler dans ton code? Pour tester, déplace ta procédure en tout premier dans ton code (avant toutes les autres). Si ça marche, c'est que effectivement c'était un problème de déclaration (tu ne peut pas appeler une procédure si tu ne l'a pas déclarée avant dans ton code!)

_

[Oxygn44]

Je suis vraiment bête...
C'était un oublie de TForm1...
J'ai de la purée dans les yeux...
Et dire que j'ai vérifié pendant 30 min...
Je vais me pendre...


Merci pour vos réponses.

[Just-Soft]

Salut;

Tout à fait exact si tu n'as ni erreur de compilation ni erreur d'exécution alors faut voir ça de plus près en utilisant le pas à pas ou l'ancienne méthode celle qui consiste à mettre des ShowMessage là où tu as des doutes.


Bonne chance.

[Just-Soft]

Re;

c'est quoi l'erreur?
donne le message stp.

les procédures sont-elles déclarées à l'intérieur de cette unité ou dans une autre.

si possible bascule le code déclaration des procédures et l'appel à ces procédures.