Searching for an object

[Matthias Teege <matthias@mteege.de>]

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