|
@@ -78,7 +78,7 @@ interface
|
|
procedure XMLPrintNodeData(var T: Text); override;
|
|
procedure XMLPrintNodeData(var T: Text); override;
|
|
{$endif DEBUG_NODE_XML}
|
|
{$endif DEBUG_NODE_XML}
|
|
procedure setprocdef(p : tprocdef);
|
|
procedure setprocdef(p : tprocdef);
|
|
- property procdef: tprocdef read fprocdef write setprocdef;
|
|
|
|
|
|
+ property procdef: tprocdef read fprocdef;
|
|
end;
|
|
end;
|
|
tloadnodeclass = class of tloadnode;
|
|
tloadnodeclass = class of tloadnode;
|
|
|
|
|