Discussion :

[Jean-Nono]

Bonjour à tous,

J'ai un petit problème d'ouverture de fichier avec Lazarus et Fpc, j'ai cherché un peu partout mais je ne suis pas tombé sur la solution :

Code :

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

1
2
3
4
5
6
7
8
9
10
Begin
// Ouvrir le fichier d'entrée
  NomFicIn := GetCurrentDir + '/Test.gcs';
  AssignFile(Fin, NomFicIn);
  if not FileExists(NomFicIn) then
  begin
    ShowMessage('Le fichier "'+ NomFicIn +'" n''existe pas');
    Exit;
  end;
  Reset(Fin);

Pas moyen d'ouvrir le fichier qui existe bien, quelle est la solution, ou comment ouvrir une boîte de dialogue Fichier pour localiser le fichier et l'ouvrir ?

Merci à tous, Jean-Nono

[SergioMaster]

Bienvenue sur le forum

Outre le fait que je ferais le test d'existence du fichier avant de l'ouvrir (Assign) un moyen simple pour

comment ouvrir une boite de dialogue Fichier pour localiser le fichier

est d'utiliser soit le composant non visuel TOpenDialog (onglet dialogs) soit , encore plus simple , le composant TFileNameEdit (onglet Misc)

ce qui donne alors :

Code :

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

1
2
3
4
5
6
7
 
if FileExists(TFileEdit1.FileName) then   // ceci a mon avis étant presque inutile
 begin
   AssignFile(F, TFileEdit1.FileName);
   Reset(F);
   etc...
 end;

PS . Tu remarqueras que le code est dégagé du reste de la discussion .
c'est une bonne habitude a prendre . Selectionnes ton code et cliques sur le bouton # ce qui posera les balise CODE et /CODE avec des [] autour
(nota c'est la seule manière que j'ai trouvé pour expliquer )

[Jean-Nono]

Bienvenue sur le forum

Outre le fait que je ferais le test d'existence du fichier avant de l'ouvrir (Assign) un moyen simple pour
est d'utiliser soit le composant non visuel TOpenDialog (onglet dialogs) soit , encore plus simple , le composant TFileNameEdit (onglet Misc)

ce qui donne alors :

Code :

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

1
2
3
4
5
6
7
 
if FileExists(TFileEdit1.FileName) then   // ceci a mon avis étant presque inutile
 begin
   AssignFile(F, TFileEdit1.FileName);
   Reset(F);
   etc...
 end;

PS . Tu remarqueras que le code est dégagé du reste de la discussion .
c'est une bonne habitude a prendre . Selectionnes ton code et cliques sur le bouton # ce qui posera les balise CODE et /CODE avec des [] autour
(nota c'est la seule manière que j'ai trouvé pour expliquer )

Bonjour,

Merci pour cette information, je vais tester cela tout de suite.

Edit : Et bien cela fonctionne très bien, merci pour le coup de main, super !
J'ai simplifier pour ne garder que TFileEdit1.FileName, j'avais pas trouvé dans la doc que j'ai !

A bientôt, Jean-Nono