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

[comicfanzine@gmail.com]

Le lundi 26 octobre 2015 12:27:53 UTC+1, Simon Wright a écrit :
> comicfanzine@gmail.com writes:
> 
> > Can someone please show my a code in which this function is used , i'm
> > lost , thanks .
> 
> You could try googling <ada text_io is_open>; finds
> http://homepage.ntlworld.com/phil.brooke/topal/hg/topal/misc.adb as the
> 5th or 6th hit.
> 
> Or you could help us to help you by showing us how far you've got
> already; "i'm lost" isn't informative.

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]