Récupération d'un nom de fichier

**chmaichel** · 10/07/2006, 10h58

Bonjour:
J'ai un petit problème avec mon projet DELPHI . Dans une unité j'ai un bouton parcourir où l'on charge un fichier texte.
Je voudrais récupèrer ce nom de fichier dans une autre unité , j'ai fait bien sur le uses premiere unité avec le nom de ficheir en variable globale .
Mais le problème c'est que dés que je passe de la première à la deuxième (dans l'execution) le nom du fichier est perdu ! Alors qu'il n'y a aucune instruction qui devrait changer le nom du fichier.
Si quelqu'un pourrait m'aider...ça serait gentil.
merci

**Gaadek** · 10/07/2006, 11h04

Tu aurais un bout de code pour nous montrer ce que tu fais?

**denokan** · 10/07/2006, 11h15

comment est déclarer le nom de ton fichier, et surtout à quel endroit ? l'as-tu bien placé avant implementation ?

**chmaichel** · 10/07/2006, 12h54

oui bien sur je l'ai declaré avant l'implémantation,
En fait j'ai trouvé que le probleme venait d'une boucle WHile qui écrasait le nom du fichier ,mais le probleme c'est que cette boucle while me permet de parcourir tout le fichier (while EOF(fichier)=false) pour faire des comparaisons.
Qualqu'un saurait pourquoi elle gêne??

**LadyWasky** · 10/07/2006, 13h41

A mon avis, tu as du faire une confusion entre Rewrite() et Reset(), regardes de cce coté là.

**chmaichel** · 10/07/2006, 13h45

non, j'ai utilisé reset() car le fichier il existe deja..

**denokan** · 10/07/2006, 13h49

Envoyé par chmaichel

... le nom du fichier est perdu ! ...

que veux-tu dire par là ? la variable ne renvoie pas au fichier ? tu obtiens une erreur lors de la lecture (si oui laquelle) ? le fichier ne contient plus de données ?

**chmaichel** · 10/07/2006, 13h55

je veux dire que quand je passe de la premiere frame à la deuxieme , la variable nom_fichier devient égale à '' donc au vide..l'erreur qu'il me sort c'et au niveau de la boucle while il me dit qu'il ya violation d'adresse (E/F 60) ou un truc comme ça .. et c'est vraiment quand j'arrive à la boucle que le nom se perd .

**LadyWasky** · 10/07/2006, 14h02

tu l'as appelé comment ta variable globale ?

Ca se trouve tu affectes une valeur à cette même variable dans ta boucle while.

Exemple :

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
 
interface
...
var s:string;
...
implementation
procedure UneProcedure;
begin
...
  s:='mon_fichier.txt';
...
end;
 
procedure TForm1.BoutonParcourirClick(..blabla..);
var fichier:TEXT;
begin  
  while (not EOF(fichier)) do
  begin
     readln(Fichier,s); //<--S est écrasé
  end;
end;

ou alors tu as du oublier de déclarer une variable locale :
procedure TForm1.BoutonParcourirClick(..blabla..);

Code :

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

1
2
3
4
5
6
7
8
var fichier:TEXT;
              s:string; //on rajoute une variable locale
begin  
  while (not EOF(fichier)) do
  begin
     readln(Fichier,s); //<--le S "global" est préservé
  end;
end;

Dans tous les cas, si tu nous met pas de code, ce sera dur de t'aider...

**LadyWasky** · 10/07/2006, 14h06

ou bien, le truc que tu as fait :
interface

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
...
var Fichier:string;
...
implementation
procedure UneProcedure;
begin
...
  Fichier:='mon_fichier.txt';
...
end;
 
procedure TForm1.BoutonParcourirClick(..blabla..);
var f:TEXT;
begin  
  while (not EOF(fichier)) do //<--normal que ça ne marche pas (Violation d'acces)
  begin
 
  end;
end;

Solution :

procedure TForm1.BoutonParcourirClick(..blabla..);
var f:TEXT;
begin
while (not EOF(f)) do //<--c'est la variable de type text ou file qu'il faut utiliser ici
begin

end;
end;

**chmaichel** · 10/07/2006, 14h06

voici la partie du code qui gene

Code :

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

1
2
3
4
5
 AssignFile(fichier,nom_fichier);
     while EOF(fichier)=false
     do
     begin
      Readln(fichier,tmp);

avec tmp est une variable locale declaré comme string

sinon voici le code pour le bouton parcourir

Code :

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

1
2
3
4
5
6
7
8
procedure TFichier.BtnParcourirClick(Sender: TObject);
 BEGIN
    openDialog1.execute;
    maskedit1.Text:= openDialog1.Filename;
    nom_fichier:=openDialog1.FileName;
   showmessage(nom_fichier);
 
 END;

nom_fichier est une variable globale..
merci

**chmaichel** · 10/07/2006, 14h15

l'erreur est E/S 140

**chmaichel** · 10/07/2006, 14h16

plutot 104

**LadyWasky** · 10/07/2006, 14h29

:code:

Déjà, ton code pour choisir un fichier est à prendre avec des pincettes, comme ceci, ce serait mieux :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TFichier.BtnParcourirClick(Sender: TObject);
 BEGIN
    if openDialog1.execute then
   begin
      maskedit1.Text:= openDialog1.Filename;
      nom_fichier:=openDialog1.FileName;
      showmessage(nom_fichier);
  end;
 END;

Et par sécurité :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
if FileExist(nom_fichier) then
begin
     AssignFile(fichier,nom_fichier);
     while EOF(fichier)=false
     do
     begin
      Readln(fichier,tmp);
    ...
   end;
   Close(fichier); //<-- tu ne l'as pas oublié celui ci ?
end;

Ou sinon, ne serait-ce pas une histoire de Noms de fichiers courts et de fichier longs par hasard (ça m'étonnerait, mais bon) ?

Exemple :

Code :

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

nom_fichier:=openDialog1.FileName; //Nom long récupéré

Code :

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

AssignFile(fichier,nom_fichier); //Nom court attendu

**chmaichel** · 10/07/2006, 14h34

merci pour ton conseil,
Pour le probleme j'ai trouvé c'est uqe j'ai pas declaré le fichier avant l'implémantation, je me suis soucié du nom_fichier et oublié le fichier:textfile.
Merci beacoup pour vos réponses.