使用变量创建数组

Question

我对 Delphi 比较陌生，所以请多多包涵。基本上，我需要根据我是在英语还是法语翻译环境中进行测试，将变量设置为不同的值。这些 TC 脚本中的所有菜单都通过它们的名称访问，在法语中它们是不同的。但是，我可以通过它们在菜单中的位置来访问它们 - 例如 [4|2]。

我有一个常量列表，并想设置一个数组以将 MenuItem1 设置为 File|New 或 [4|2]，具体取决于 tcDecimalSeparator <> '.' 的值（设置为声明的常量）。

这有意义吗？什么是最简单/最好的方法？

我知道我可能可以通过数据驱动测试来设置这一切，但我不想在发布之前过多地修改脚本。

Answer 1

不，您提出的解决方案没有意义。首先，基于当前小数分隔符的切换是不可靠的。其次，如果你已经知道菜单项的位置，而且不管程序是什么语言，它们总是有效的，那为什么还要乱用英文菜单标题呢？一直使用菜单位置。 （或者，如果您已经设置了一些东西来根据语言选择菜单文本，为什么不也使用法语菜单文本，而不是在英语 text 和法语 positions之间切换>?)

按照您的建议，您可以设置菜单标识符的二维数组：

const
  TLanguage = (lEnglish, lFrench);
  TUIElement = (uiFileNew, uiFileOpen, ...);

  MenuIDs = array[TUIElement] of array[TLanguage] of string = (
    ('File|New', '[4|2]'),
    ('File|Open', '[4|3]')
  );

然后，当你想要一个字符串时，选择与你的 UI 元素对应的项目，然后选择当前语言的字符串：

if tcDecimalSeparator = '.' then
  CurrentLang := lEnglish
else
  CurrentLang := lFrench;

UseMenuItem(MenuIDs[uiFileNew, CurrentLang]);