Comme si c'etait fait
Mais ce n'est pas qu'avec strErrFile met 2 autres strings font bugué egalement donc j'ai aussi rajouté les autres strings
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 //declaration de la variable strErrFile : String; strErrFile:=dlgSave.FileName; DispMsg.DisplayError(' Impossible d''ouvrir le fichier ' +#13+' '+strErrFile+' ! ', ERR_004); DisplayTextFile('Rapport de vérification d''un fichier d''échange MISTRAL', strErrFile); dlgLoadXls.FileName:=strRefFile; strRefFile:=dlgLoadXls.FileName; exceldoc:=excel.Workbooks.Open(strRefFile); Writeln(txtFile,ExpandFileName(strRefFile)); dlgSave.FileName:=ChangeFileExt('Erreurs_'+ExtractFileName(strInfoFile),'.txt');
Partager