{ tfield }
procedure tfield.acceptmembervisitor(visitor: tmembervisitor);
begin
end;
{ tmethod }
procedure tmethod.acceptmembervisitor(visitor: tmembervisitor);
begin
visitor.visitmethod(self);
end;
{ tproperty }
procedure tproperty.acceptmembervisitor(visitor: tmembervisitor);
begin
visitor.visitproperty(self);
end;
{ tmembervisitor }
procedure tmembervisitor.visitfield(instance: tfield);
begin
end;
procedure tmembervisitor.visitmember(instance: tmember);
begin
end;
procedure tmembervisitor.visitmethod(instance: tmethod);
