Discussion :

[Invité]

Bonjours,
J'utilise un RichEdit dans lequel je charge le contenu d'un fichier avec la méthode

Code :

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

MonRichEdit.Lines.LoadFromFile(pathDuFichierAAfficherDansLeRichEdit);

qui fonctinne très bien.
Or dans mon application, je suis amené à lire un fichier de config. Pour cela j'utilise le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
function MaClasse.LireFichier(pathDuFichierDeConfig : string );
  var
    Fichier : TextFile;
  begin
 
    AssignFile(Fichier,pathDuFichierDeConfig );
    Reset(Fichier);
 
  // Suite...
 
  end;

Mon problème est le suivant :
- lorsque j'utilise ma fonction AVANT d'avoir chargé un fichier dans le RichEdit, tout fonctionne.
- lorsque j'utilise ma fonction APRES avoir chargé le fichier dans le RichEdit, il fait une erreur sur le "Reset(Fichier)" : Fichier Introuvable

Le plus étonnant dans tout ça c'est que lorsque je passe un débug et que je met ma souris sur la variable Fichier, il m'indique que le contenu de cette variable est le chemin du fichier qui est affiché dans le rich edit , ce qui est totalement incohérent.

Help !

[remixtech]

Tes chemins de fichier sont ils complet ? Ou s'agit il d'un fichier...

Qu'affiche un showmessage sur ta variable ? Quand utilises tu cette variable ?

[bs.box]

Mon problème est le suivant :
- lorsque j'utilise ma fonction AVANT d'avoir chargé un fichier dans le RichEdit, tout fonctionne.
- lorsque j'utilise ma fonction APRES avoir chargé le fichier dans le RichEdit, il fait une erreur sur le "Reset(Fichier)" : Fichier Introuvable

Veuillez confirmer par ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
function MaClasse.LireFichier(pathDuFichierDeConfig : string );
  var
    Fichier : TextFile;
  begin
  if not FileExists(pathDuFichierDeConfig) 
     then ShowMessage('Fichier Introuvable: '+pathDuFichierDeConfig)
     else begin
     AssignFile(Fichier,pathDuFichierDeConfig );
     Reset(Fichier);
 
  // Suite...
           end // !!
  end;

Bon Courage..

[Invité]

peut être que c'est vraie, reset ne trouve pas le fichier qui un attribut en lecture seul ou quelque chose de ce genre, sa veut dire que richedit à modifier son attribut

?? Pas compris

Tes chemins de fichier sont ils complet ? Ou s'agit il d'un fichier...

En fait je n'indique pas le chemin mais juste le nom du fichier, comme ça il regarde directement dans le répertoire ou se trouve l'executable. Et sa fonctionne bien dans d'autre situation dc je ne vois pas pk sa poserai problème ici.

Qu'affiche un showmessage sur ta variable ? Quand utilises tu cette variable ?

Je ne peut pas mettre un showmessage sur la variable Fichier, car elle est de type textFile et pas string.

Veuillez confirmer par ceci:

Avec cet extrait de code, rentre dans le showmessage dc il ne trouve pas le fichier. Je vais faire un essai en mettant les chemins complets des fichiers.

[Invité]

Je ne peut pas mettre un showmessage sur la variable Fichier, car elle est de type textFile et pas string.


Citation:
Veuillez confirmer par ceci:

Avec cet extrait de code, rentre dans le showmessage dc il ne trouve pas le fichier. Je vais faire un essai en mettant les chemins complets des fichiers.

Sa fonctionne avec cette solution ! Ce qui m'amène à la question : existe-t-il une fonction qui renvoi le chemin d'acces de l'executable de l'application?

[Aka Guymelef]

Oui ça existe

Code :

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

ExtractFilePath( ParamStr(0) );

[bs.box]

Sa fonctionne avec cette solution ! Ce qui m'amène à la question : existe-t-il une fonction qui renvoi le chemin d'acces de l'executable de l'application?

Pour le chemin d'acces de l'executable de l'application, essaye cette fonction:

Code :

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

1
2
3
4
5
 
var chemin_exe:string;
begin
 chemin_exe:=Application.ExeName;
end;

Pour avoir le répertoire;

Code :

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

1
2
3
4
5
 
var rep_exe:string;
begin
 rep_exe:=ExtractFilePath( Application.ExeName );
end;

Pour plus, essaye sur ces fonction.

[Invité]

Oki THX pr le coup de main !

[Kephuro]

Petite précision :

Quand on ne précise pas le chemin à l'ouverture d'un fichier, le chemin par défaut est celui de l'application. Or, si on utilise une OpenDialog, ou une SaveDialog (des trucs dans ce genre là), le chemin par défaut devient celui du fichier Ouvert/Sauvé par la boite de dialogue.
Et là on se retrouve souvent avec ce genre d'erreur quand on ne précise pas le chemin complet

[bs.box]

Quand on ne précise pas le chemin à l'ouverture d'un fichier, le chemin par défaut est celui de l'application

Ca depend des applications qui sont (ouvertes/en cours d'exécution) sur votre session.

a+