Question

我有以下LUT（查找表）用于检索伪PChar的显示名称（所有这些预定义的PChars是它们皮肤下的整数，你知道）输入：

const
  RT_MIN = DWORD(RT_CURSOR);
  RT_MAX = DWORD(RT_MANIFEST);

  ResourceTypes: array [RT_MIN..RT_MAX] of PChar = (
    'Hardware-dependent cursor',
    'Bitmap',
    'Hardware-dependent icon',
    'Menu',
    'Dialog box',
    'String-table entry',
    'Font directory',
    'Font',
    'Accelerator table',
    'Application-defined resource (raw data)',
    'Message-table entry',
    'Hardware-independent cursor',
    nil, { unknown, reserved or not used }
    'Hardware-independent icon',
    nil, { unknown, reserved or not used }
    'Version',
    'Dialog Include',
    nil, { unknown, reserved or not used }
    'Plug and Play',
    'VxD',
    'Animated cursor',
    'Animated icon',
    'HTML resource',
    'Side-by-Side Assembly Manifest'
  );

在重写case语句时，我会获得任何优点/缺点吗？离开那个有什么优点/缺点吗？

Answer 1

我认为使用数组是最快的方法。如果你是查询ResourceTypes[2]，程序将首先查看ResourceTypes[2]，取消引用PChar并输出零终止字符串。如果编译器是智能的，它可以识别字符串是不可更改的，因此它可以将所有字符串直接放在数组中，因此您将保存一个解除引用操作。（对于那些对它感兴趣的人，可以使用像HxD这样的十六进制编辑器来查看内存内容，以检查这是否属实）。

未来可能发生的另一个问题可能是以下情况：让我们说微软定义了一种非常特殊的新资源类型，因此它获得了大量的数字，如$ FFFF。如果您使用case of，则只需添加2行代码即可添加此新资源类型。通过使用查找表（或LUT，这个缩写对我来说是新的），你会遇到一个问题，因为你需要创建一个大小为65535的数组，其内容只有99％nil s。

我会通过创建一个函数来实现它：

function GetHumanFriendlyResourceTypeName(AResourceType: PChar): string;
begin
  if not Is_IntResource(AResourceType) then
  begin
    result := AResourceType;
  end
  else
  begin
    case Integer(AResourceType) of
      Integer(RT_CURSOR):
        result := 'Hardware-dependent cursor';
      Integer(RT_BITMAP):
        result := 'Bitmap';
      Integer(RT_ICON):
        result := 'Hardware-dependent icon';
      Integer(RT_MENU):
        result := 'Menu';
      Integer(RT_DIALOG):
        result := 'Dialog box';
      Integer(RT_STRING):
        result := 'String-table entry';
      Integer(RT_FONTDIR):
        result := 'Font directory';
      Integer(RT_FONT):
        result := 'Font';
      Integer(RT_ACCELERATOR):
        result := 'Accelerator table';
      Integer(RT_RCDATA):
        result := 'Application-defined resource (raw data)';
      Integer(RT_MESSAGETABLE):
        result := 'Message-table entry';
      Integer(RT_GROUP_CURSOR):
        result := 'Hardware-independent cursor';
      Integer(RT_GROUP_ICON):
        result := 'Hardware-independent icon';
      Integer(RT_VERSION):
        result := 'Version';
      Integer(RT_DLGINCLUDE):
        result := 'Dialog Include';
      Integer(RT_PLUGPLAY):
        result := 'Plug and Play';
      Integer(RT_VXD):
        result := 'VxD';
      Integer(RT_ANICURSOR):
        result := 'Animated cursor';
      Integer(RT_ANIICON):
        result := 'Animated icon';
      Integer(RT_HTML):
        result := 'HTML resource';
      Integer(RT_MANIFEST):
        result := 'Side-by-Side Assembly Manifest';
      else
        result := Format('(Unknown type %d)', [Integer(AResourceType)]);
    end;
  end;
end;

以下是代码演示：

procedure TForm1.Button1Click(Sender: TObject);
begin
  // Hardware-dependent icon
  ShowMessage(GetHumanFriendlyResourceTypeName(MAKEINTRESOURCE(3)));

  // (Unknown type 123)
  ShowMessage(GetHumanFriendlyResourceTypeName(MAKEINTRESOURCE(123)));

  // AVI
  ShowMessage(GetHumanFriendlyResourceTypeName(PChar('AVI')));
end;

性能不如解决方案中的高，但此功能有几个优点：

这个函数更容易阅读，因为每个RT_常量都站在人性化的名字前面。所以代码也要好得多维护。在LUT中，人性化的名字可能会意外地互换（因为在每个人性化名称前面没有评论表明官方RT_常量名称）。
此功能还显示一个友好的人性化字符串＆＃34;（未知类型123）＆＃34;如果标识符未知。
如果字符串不是预定义类型（RT_）
使用此功能，您可以通过将字符串放入资源字符串或通过查询转换函数/字符串列表来静态地国际化您的应用程序。

是否有任何重构LUT数组到case语句的意义？

1 个答案: