|
@@ -33,10 +33,19 @@ interface
|
|
{ twasmnodeutils }
|
|
{ twasmnodeutils }
|
|
|
|
|
|
twasmnodeutils = class(tnodeutils)
|
|
twasmnodeutils = class(tnodeutils)
|
|
|
|
+ public
|
|
|
|
+ class procedure InsertObjectInfo; override;
|
|
end;
|
|
end;
|
|
|
|
|
|
implementation
|
|
implementation
|
|
|
|
|
|
|
|
+ { twasmnodeutils }
|
|
|
|
+
|
|
|
|
+ class procedure twasmnodeutils.InsertObjectInfo;
|
|
|
|
+ begin
|
|
|
|
+ inherited;
|
|
|
|
+ end;
|
|
|
|
+
|
|
begin
|
|
begin
|
|
cnodeutils:=twasmnodeutils;
|
|
cnodeutils:=twasmnodeutils;
|
|
end.
|
|
end.
|