//Procedure de reinitialisation du fichier texte function TTXTObjet.MAJfichier : integer; var F:textfile; begin assignfile(F,main.frmprincipal.OpenDialog1.filename); //FichierExist est une fonction ki verifie si le fichier Existe;) if FichierExist = 1 then begin rewrite(F); closefile(F); result := 1; end else begin showmessage('Le Fichier ' +frmprincipal.OpenDialog1.FileName +' n''a pas ete Trouve'); result := 0; end; end;