Re: function Is_Open (File : File_Type) return Boolean; :Text_io

[comicfanzine@gmail.com]

Thanks fot link .

I want to create+open a file then use Is_Open , if the file have been create i  want to put some text + the value of Is_Open(should be TRUE) .

There is french in the code :

[code]WITH Ada.Text_IO ;  USE Ada.Text_IO ; 

PROCEDURE TestFichier IS

   MonFichier : File_type ; 
   
BEGIN 
   Create( MonFichier,Name => "clone.adb");
   open(MonFichier,In_file,"clone.adb") ;
    if Is_Open(MonFichier) and MonFichier = true 
    then put("Le fichier , ouvert ? : ",MonFichier);
    end if;
END TestFichier ;[/code]