bonsoir je voulais savoir .

pourquoi quand je copie et colle mot pour mot le faq sur word :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.BtOpenDocClick(Sender: TObject);
var
    DocWord:_Document;
    FileName: OleVariant;
    Visible: OleVariant;
 
begin
    FileName:= 'Document.doc'; // ou .rtf ...
    Visible:=True;  // Le serveur COM est affiché 
    DocWord:= WordApplication1.Documents.Open(FileName,EmptyParam,EmptyParam,
                          EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                          EmptyParam,EmptyParam,EmptyParam,EmptyParam,Visible));
end;
j'ai le droit a cette erreur :

[Error] Interface_Termite.pas(783): Not enough actual parameters

après avoir vue l'erreur des double parenthese j'ai corriger et ca ne vient pas de cela .

Code au final :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.BtOpenDocClick(Sender: TObject);
var
    DocWord:_Document;
    FileName: OleVariant;
    Visible: OleVariant;
 
begin
    FileName:= 'Document.doc'; // ou .rtf ...
    Visible:=True;  // Le serveur COM est affiché 
    DocWord:= WordApplication1.Documents.Open(FileName,EmptyParam,EmptyParam,
                          EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                          EmptyParam,EmptyParam,EmptyParam,EmptyParam,Visible);
end;