Prob appel procedure dans if then else
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:
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; |
