delphi - 如何在记录数组中按字段查找特定记录

Question

我知道这可能是一个基本问题，但这里是。我定义了一个常量记录数组:

  TDocumentKindInfo = record

    Employee: integer;
    First: string;
    Last: string;
    Title: string;
  end;

const
  CDocumentKindInfos: array[TDocumentKind] of TDocumentKindInfo = (

    (Emplyee: 1; First: 'Bob'; Last: 'Fredricks'; Title: 'Manager'),
    (Emplyee: 2; First: 'Bill'; Last: 'Evans'; Title: 'Cashier'),
    (Emplyee: 3; First: 'Jill'; Last: 'Dunne'; Title: 'Stocker'),
...

如何找到担任经理的员工姓名。我环顾四周，找不到任何有帮助的东西。我是delphi的初学者。使用delphi 7。

Answer 1

我通常会这样写:

function FindDocumentByTitle(const Title: string): TDocumentKind;
begin
  for Result := low(Result) to high(Result) do
    if SameText(Title, CDocumentKindInfos[Result].Title) then
      exit;
  raise EDocumentNotFound.CreateFmt('Document titled ''%s'' not found.', [Title]);
end;      

如果找不到项目，该函数将引发错误。很快您就会希望将所有这些都包含在类中。