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