delphi - Delphi 6 中记录常量可以是记录的记录吗？

Question

我可以像这样定义记录常量:

const
  dialoghdr: DLGTEMPLATE =
    (style: 1; dwExtendedStyle: 2; cdit: 3; x: 4; y: 5; cx: 6; cy: 7);
  dialogitem: DLGITEMTEMPLATE =
    (style: 8; dwExtendedStyle: 9; x: 10; y: 11; cx: 12; cy: 13; id: 14);

我可以像这样定义记录的记录:

type
  template = packed record
    header: DLGTEMPLATE;
    item: DLGITEMTEMPLATE;
    end;

尽管编译器会接受这一点:

const mytemplate: template = (); // compiles!

有没有办法将常量实际放入 () 中？类似的东西

const mytemplate: template = 
    (header.style: 1; header.dwExtendedStyle: 2; header.cdit: 3...,
     item.style: 8; item.dwExtendedStyle: 9; item.x: 10...);

或

const mytemplate: template = 
    ((style: 1; dwExtendedStyle: 2; cdit: 3; x: 4; y: 5; cx: 6; cy: 7),
    (style: 8; dwExtendedStyle: 9; x: 10; y: 11; cx: 12; cy: 13; id: 14));

记录常量可以是记录的记录吗？我正在使用 Delphi 6。(我意识到解决方法是将模板重新定义为仅单级字段记录。)

Answer 1

是的，这很有可能，而且你几乎知道如何做到:

const mytemplate: template =
  (header: (style: 1; dwExtendedStyle: 2; cdit: 3; x: 4; y: 5; cx: 6; cy: 7);
   item: (style: 8; dwExtendedStyle: 9; x: 10; y: 11; cx: 12; cy: 13; id: 14));

您只需在每个“级别”遵循相同的模式即可。