* freeandnil added

rtl/inc/objpash.inc

@@ -155,6 +155,7 @@
          function _AddRef : longint;stdcall;
          function _Release : longint;stdcall;
        end;
+       IInterface = IUnknown;
 
        { for native dispinterface support }
        IDispatch = interface(IUnknown)
@@ -279,7 +280,10 @@
        end;
 {
   $Log$
-  Revision 1.11  2001-04-13 23:49:48  peter
+  Revision 1.12  2001-08-12 22:11:48  peter
+    * freeandnil added
+
+  Revision 1.11  2001/04/13 23:49:48  peter
     * fixes for the stricter compiler
 
   Revision 1.10  2001/04/04 17:56:45  florian

rtl/objpas/sysutilh.inc

@@ -141,13 +141,16 @@ Type
   {$i filutilh.inc}
 
   { Read disk function declarations }
-
-
   {$i diskh.inc}
 
+    procedure FreeAndNil(var obj);
+
 {
   $Log$
-  Revision 1.9  2001-06-03 15:18:01  peter
+  Revision 1.10  2001-08-12 22:11:48  peter
+    * freeandnil added
+
+  Revision 1.9  2001/06/03 15:18:01  peter
     * eoutofmemory and einvalidpointer fix
 
   Revision 1.8  2001/02/20 22:14:19  peter

rtl/objpas/sysutils.inc

@@ -38,6 +38,16 @@
   {$i syspch.inc}
 
 
+    procedure FreeAndNil(var obj);
+      var
+        temp: tobject;
+      begin
+        temp:=tobject(obj);
+        pointer(obj):=nil;
+        temp.free;
+      end;
+
+
     constructor Exception.Create(const msg : string);
 
       begin
@@ -308,7 +318,10 @@ end;
 
 {
   $Log$
-  Revision 1.4  2001-06-03 15:18:01  peter
+  Revision 1.5  2001-08-12 22:11:48  peter
+    * freeandnil added
+
+  Revision 1.4  2001/06/03 15:18:01  peter
     * eoutofmemory and einvalidpointer fix
 
   Revision 1.3  2000/11/23 11:04:26  sg