delphi - 在 Delphi 中检查关键字列表中的关键字的最快方法是什么？

Question

我有一小部分关键字。我真正想做的是:

case MyKeyword of
  'CHIL': (code for CHIL);
  'HUSB': (code for HUSB);
  'WIFE': (code for WIFE);
  'SEX': (code for SEX);
  else (code for everything else);
end;

不幸的是，CASE 语句不能像字符串那样使用。

我可以使用直接的 IF THEN ELSE IF 结构，例如:

if MyKeyword = 'CHIL' then (code for CHIL)
else if MyKeyword = 'HUSB' then (code for HUSB)
else if MyKeyword = 'WIFE' then (code for WIFE)
else if MyKeyword = 'SEX' then (code for SEX)
else (code for everything else);

但我听说这效率相对较低。

我一直在做的是:

P := pos(' ' + MyKeyword + ' ', ' CHIL HUSB WIFE SEX ');
case P of
  1: (code for CHIL);
  6: (code for HUSB);
  11: (code for WIFE);
  17: (code for SEX);
  else (code for everything else);
end;

这当然不是最好的编程风格，但它对我来说效果很好，到目前为止还没有什么区别。

那么在 Delphi 中重写此代码的最佳方法是什么，使其既简单、易于理解又快速？

(作为引用，我使用带有 Unicode 字符串的 Delphi 2009。)

<小时/>

后续:

托比建议我只使用 If then Else 结构。回顾我使用 CASE 语句的示例，我可以看出这是一个可行的答案。不幸的是，我将 CASE 纳入其中无意中隐藏了我真正的问题。

我实际上并不关心它是哪个关键字。如果特定方法可以像 POS 方法一样识别它，那就是一个额外的好处。我需要的是知道关键字是否在关键字集中。

所以我真的想知道是否有比以下更好的东西:

if pos(' ' + MyKeyword + ' ', ' CHIL HUSB WIFE SEX ') > 0 then

在这种情况下，If Then Else 等效项似乎并不更好:

if (MyKeyword = 'CHIL') or (MyKeyword = 'HUSB') or (MyKeyword = 'WIFE') 
      or (MyKeyword = 'SEX') then

在 Barry 对 Kornel 问题的评论中，他提到了 TDictionary Generic。我还没有了解新的通用集合，看起来我应该深入研究它们。我的问题是它们是否是为了提高效率而构建的，以及使用 TDictionary 在外观和速度上与上面两行相比如何？

<小时/>

在后来的分析中，我发现像 (' ' + MyKeyword + ' ') 这样的字符串连接在时间上非常昂贵，应该尽可能避免。几乎任何其他解决方案都比这样做更好。

Answer 1

type TKeyword = ( ECHIL, EHUSB, EWIFE, ESEX )
const TKeyNames : array[TKeyword] of string = ( 'CHIL', 'HUSB', 'WIFE', 'SEX' );

Key : TKeyword

case Key of 
  ECHIL : (code for CHIL);
  EHUSB : (code for HUSB);
  EWIFE : (code for WIFE);
  ESEX  : (code for SEX);
  else (code for everything else);
end;

一般来说，不要使用字符串作为“键”，而使用枚举——它们更安全，并且速度会大大提高。

不幸的是，Delphi(据我所知)没有易于使用的标准哈希表实现，但是您始终可以汇总自己的哈希表实现。

顺便说一句，性代码听起来比“将为啤酒编写代码”有趣得多:P