Re: Searching for an object

[Gerald Kasner <Gerald.Kasner@Physik.Uni-Magdeburg.de>]

Matthias Teege schrieb:
> 
> Moin,
> 
> I've defined the following type:
> 
> type customer is record
>    aname  : String( 1..25);
>    bname  : String( 1..25);
> end record;
> 
> Then I create some objects of this type and save all of
> them in an table.
> 
> Now I want to find a special object with a find procedure
> like this (not authentic Ada Code :-)):
> 
> procedure find ( Field : in String;
>                  What  : in String;
>                  Result: out String) is
> 
> while end_of_table is false loop
>   read(object);
>   if object.Field = What then -- field should be 'aname'
>                               -- or 'bname'
>      Result := object.Field;
>      exit; -- We have found it
>   end if
> end loop;
> end find;
> 
> I want to search in all Record "Fields" depend on the
> procedure parameter.
> 
> How is the Ada way?
> 
> Many thanks
> Matthias
> 
> --
> Matthias Teege -- matthias@mteege.de -- http://emugs.de
> make world not war
> PGP-Key auf Anfrage

My respose is no direct answer to your question, but I would 
be more careful about the find procedure in general. If you have 
a long table of customers you'll have to wait very long times. 
Consult a textbook on data structures how to do this much faster.

(In your case a tree may be very useful)

A second remark: Ada is designed to reuse code. Why not using 
already existing well tested libraries ? Abstract data types 
seem to be appropriate. 

-Gerald