begin
end;
procedure tmembervisitor.visitproperty(instance: tproperty);
begin
end;
说明:
· tmember, tfield, tmethod 和 tproperty都实现了acceptmembervisitor方法. 这些方法都嵌入模式中
· tmembervisitor 类实现了visitmember, visitfield等方法。tmembervisitor是一个抽象的类，它所有的方法由具体的子类实现。
下面是一个简单的代码生成器的实现。
代码介绍:
