Bonjour à tous,

J'utilise cette fonction :

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
22
function LectureFichierSteDat(Chemin : String) : String;
Var
  F: TextFile;
begin
  Try
    Try
      AssignFile(F,Chemin);
      //Lire la premiere ligne AssignFile(F,ExtractFilePath(Application.ExeName)+'test.txt');
      Reset(F); //Ouvre le fichier sans le modifier
      Readln(F,result);
      //Lit une ligne du fichier texte jusqu'au prochain saut de ligne
    Except
      On EInOutError do
      Begin
        Result := '< inconnu >';
        raise;
      end;
    end;
  Finally
    CloseFile(F); //Ferme l'association entre la variable F et le fichier texte
  end;
end;
Qui me retourne la première ligne d'un fichier.

Mais si le fichier que j'envoi n'existe pas, j'ai un beau message I/O error, normal, mais je voudrais évité ce message, apparement le bloc Except ne joue pas son rôle ?

Pouvez-vous m'expliquer ?