From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.5 required=5.0 tests=BAYES_00,INVALID_MSGID,
	PP_MIME_FAKE_ASCII_TEXT autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 103376,ab77f5eae0f4ad62
X-Google-Attributes: gid103376,public
From: sparre@meyer.fys.ku.dk (Jacob Sparre Andersen)
Subject: Re: New ada user
Date: 1997/05/11
Message-ID: <1997May11.193035.3813@news.nbi.dk>#1/1
X-Deja-AN: 240997455
References: <335B7AE5.446B@univ-pau.fr>
Newsgroups: comp.lang.ada
Date: 1997-05-11T00:00:00+00:00
List-Id: <comp.lang.ada>


od (cnam05@univ-pau.fr) wrote:
| HI!I am a new ada user. I would like to create a database with
| customers adresses, etc... but i really don't know how to manage and
| above all how to start : create records, use them, search for one
| information, etc... Any help is welcome. Thanks

It sounds like you should use the package Ada.Direct_IO, if you plan to map
the database tables to a file.

It's probably a good idea to have a used/not used flag in your record. It 
could be done in this way:

   type File_Record (In_Use : Boolean := False) is
      record
         case In_Use is
            when True =>
               Name    : Name_Type;
               Address : Address_Type;
            when False =>
               null;
         end case;
      end record;

Then you overwrite a record with a File_Record'(In_Use => False) to delete
it.
When you want to insert a new record, you can first look for records, where
In_Use is False, otherwise you'll have to write the new record at the end
of the file.

Greetings,

Jacob
--
Jacob Sparre Andersen                            http://www.nbi.dk/%7Esparre/
Center for Chaos and Turbulence Studies          Phone: (+45) 39 65 53 51
The Niels Bohr Institute                                (+45) 35 32 53 05
--
G�r dine X-programmer danske - p� 5 minutter: http://www.nbi.dk/~nordfalk/ovs/