现在我们看PD中各种语言中,不管版型选择什么,都会把其当成class,其实这是不对的,当一个版型为type,就表明了这个类其实是type类型的。我们需要在代码中,生成
TmyType = record
Attri: string;
End;
这样的结果。
方法很简单,在class节点中,增加一个小节。名为definition<<type>>
内容为
%Code% = record
[ %attributes(-)%\n]\
[ %attributes(#)%\n]\
[ %attributes(+)%\n]\
[ %attributes(*)%\n]\
end;
就行。