Cette erreure se produit quand j'exécute mon code code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
  [Error] Interface_Termite.pas(795): Declaration expected but identifier 'monFichier' found
  [Error] Interface_Termite.pas(799): '.' expected but ';' found

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
 
Procedure TFenetre_termite.Enregistrement_Text_word(lienFichier:string);
var
    cheminFichier, aFileName, NomDuFichier: olevariant ;
    mesFichiers, MaZone, mesSignets, placeSignet, monSignet : olevariant;
    monFichier : _document;
    lecture_page,num_onglet,NumTableau:integer ;
    TabPageetage,TabPagepiece:TTabPage ;
    aComposant :TControl  ;
    acheck :TCheckBox ;
    Repertoire:string ;
    Tableau :Table ;
    Visible: olevariant;
    BeforeRow: OleVariant;
 
begin
 
 
    Repertoire := ExtractFilePath(Application.ExeName);
    cheminFichier := Repertoire+'../fichierWord/termite.doc';
    Visible := false ;
    monFichier := ApplicationWord.Documents.Open(cheminFichier,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,Visible,EmptyParam,EmptyParam,EmptyParam);
 
    Tableau := monFichier.Tables.item(3);
 
 if assigned(TNB_principal) then
    begin
      For lecture_page:= 0 to TNB_principal.Pages.Count-1  do
        Begin
          TabPageetage := TTabPage(TNB_principal.Pages.Objects[lecture_page]);
            if assigned(TabPage) then
              begin
                Tableau.Cell(lecture_page,2).Range.Text := TabPageetage.Caption ;
                BeforeRow:=Tableau.Rows.Item(Tableau.Rows.Count);
                Tableau.Rows.Add(BeforeRow);
                For num_onglet:= 0 to TNB_principal1[lecture_page].Pages.Count-1  do
                  Begin
                    TabPagepiece := TTabPage(TNB_principal1[lecture_page].Pages.Objects[num_onglet]);
                    miseEnFormeMot(TabPagepiece.Caption);
                    Tableau.Cell(lecture_page+num_onglet,1).Range.Text := motFinal ;
                    //placeSignet.InsertAfter(motFinal);
                    For NumTableau:=0 to Pred( TabPagepiece.ControlCount ) do
                      begin
                        aComposant := TControl.Create(self);
                        aComposant := TabPagepiece.Controls[NumTableau] ;
                        if TabPagepiece.Controls[NumTableau] is TCheckBox then
                          begin
                            recupere_mot(aComposant.Name, Length(aComposant.Name)-3, 1);
                            acheck := TCheckBox.Create(self);
                            acheck := (aComposant as TCheckBox);
                        if mots='CBX_test' then
                          begin
                            if acheck.Checked = false then
                              begin
                                Tableau.Cell(lecture_page+num_onglet,3).Range.Text := 'NON' ;
                                //placeSignet.InsertAfter('NON'+#13);
                              end
                            else
                              begin
                                Tableau.Cell(lecture_page+num_onglet,3).Range.Text := 'OUI' ;
                                //placeSignet.InsertAfter('OUI'+#13);
                              end;
                          end;
                      end;
                    end;
                    BeforeRow:=Tableau.Rows.Item(Tableau.Rows.Count);
                    Tableau.Rows.Add(BeforeRow);
            end;
        end;
    end;
  end;
end;
 
monFichier.SaveAs(lienFichier,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
ApplicationWord.Quit;
 
 
end;