Ada 05 问题：搜索记录向量中的特定元素？

Question

我创建了一个 Ada 程序，将在 GNAT Gcc 编译器 4.3.0 中编译 我创建了一条包含姓名、电话、地址和生日的记录。 姓名、电话和地址将是无界字符串格式，生日是另一条记录。这里的目的是制作一个通讯录管理系统。（非常简单）

type birthday is record
    year  : Positive;
    month : Positive;
    day   : positive;
end record;

type contact_type is record
    name    : unbounded_string;
    phone   : unbounded_string;
    address : unbounded_string;
    bday    : birthday;
end record;

我已经制作了插入（使用追加）和删除以及列表功能。我需要一个搜索和排序功能来完成。

问题是我把这个记录（contact_type 记录）变成了一个向量。 现在我想从向量中搜索元素/子类之一（无论你正确地称呼它）。

例如搜索姓名...或地址等。 但是使用向量的 find_index 方法，我需要插入 contact_type 类型的另一条记录，并且只会返回完全相同的元素作为结果。

但我想要的是，如果我搜索一个名称，则返回具有该名称的所有元素...

并且是否可以根据名称、地址、生日对向量进行“通用排序”（所以我有三种不同的排序选项）

PS。 我正在编写的第一个 Ada 程序是地址簿管理器...... 我是一个完全的新手，我只有 C 和 Java 经验，所以有点困难...... （我花了很长时间才找到如何标准输入和输出哈哈）

Answer 1

当我开始学习 Ada 时，我写了一篇关于 Ada.Containers.Vectors 的相当长的 Wiki 文章。它帮助我记住了使用此软件包时可以使用的所有选项。文章中提供了有关如何迭代向量、如何搜索向量以及如何对其进行排序的示例。

http://wiki.ada-dk.org/index.php/Ada .Containers.Vectors

尽情享受吧！ :o)

Answer 2

简单地循环浏览内容怎么样？

function Find_Name (V : Vector; Name : String) return Contact_Type is
   Position : Cursor := V.First;
begin
   while Position /= No_Element loop
      if Element (Position).Name = Name then
         return Element (Position);
      end if;
      Next (Position);
   end loop;
   return Empty_Contact;
end Find_Name;

Answer 3

使用 迭代 并向其传递一个子程序来检查每个访问的记录。

package Container is new Containers.Vectors (Natural, Contact_Type);
List : Container.Vector;
...
procedure Visit (Position : Container.Cursor) is
    C : Contact_Type := Container.Element(Position);
begin
    -- examine C
end Visit;
...
List.Iterate (Visit'Access);

您可以使用类似的模式来构造排序键。另请参阅 A.18.16 数组排序。

附录：正如 @Simon Wright 评论的那样， < Containers.Vectors 中的 code>Generic_Sorting 是更好的选择。

Answer 4

只要只有一个匹配元素，@oenone 的答案就可以。否则，你可以尝试类似的事情

function Find_Name (V : Vector; Name : String) return Vector is
   Position : Cursor := V.First;
   Result : Vector;
begin
   while Position /= No_Element loop
      if Element (Position).Name = Name then
         Append (Result, Element (Position));
      end if;
      Next (Position);
   end loop;
   return Result;
end Find_Name;