Bonjour,
Actuellement, je suis sur un projet utilisant un fichier.txt dans lequel on a plusieurs contrôle à faire. Si un controle échou, le fichier est rejeter et l'appli s'arrête sinon on poursuit au controle suivant...
Pour ma part, à chaque contrôle, s'ouvre, lit et je referme mon fichier a chaque appelle de fonction. Cette manip me plait pas beaucoup car je retrouve plusieurs fois dans mes fonctions AssignFile, Reset, Readln et Close.
Je n'arrive pas a trouver une solution pour créer une fonction ou procedure en passant en parametre un textfile et qui me renvoi aussi ce textfile. Cette fonction me permettrai d'éviter de reecrire a chaque fois dans chaque fonction de controle assignfile, reset etc...N'arrivant pas a trouver d'exemple ou de solutions sur le net, je m'en remets a vous.
Merci d'avance si vous pouvez m'indiquer une solution possible.
Cordialement.
----------------------------------
Ex :
AssignFile (F,NomFich);
Reset (F);
//1er controle
Result := function1 (F);
//2eme controle
Result := function2 (F);
//Etc..
CloseFile (F);
-----------------------------------
C'est le passage de parametre qui me bloque
Function (Fich : TextFile) : Boolean;
begin
end;