+ Variant constants Unassigned and Null added

rtl/inc/variant.inc

@@ -554,6 +554,8 @@ procedure initvariantmanager;
   begin
      VarDispProc:=@vardisperror;
      DispCallByIDProc:=@vardisperror;
+     tvardata(Unassigned).VType:=varEmpty;
+     tvardata(Null).VType:=varNull;
      for i:=0 to (sizeof(tvariantmanager) div sizeof(pointer))-1 do
        ppointer(@variantmanager+i*sizeof(pointer))^:=@invalidvariantop;
      pointer(variantmanager.varclear):=@varclear
@@ -562,7 +564,10 @@ procedure initvariantmanager;
 
 {
   $Log$
-  Revision 1.8  2002-10-07 15:10:45  florian
+  Revision 1.9  2002-10-09 19:08:22  florian
+    + Variant constants Unassigned and Null added
+
+  Revision 1.8  2002/10/07 15:10:45  florian
     + variant wrappers for cmp operators added
 
   Revision 1.7  2002/10/07 10:27:45  florian

rtl/inc/varianth.inc

@@ -173,6 +173,7 @@ function IsVariantManagerSet: Boolean;
 var
    VarDispProc : pointer;
    DispCallByIDProc : pointer;
+   Null,Unassigned : Variant;
 
 {**********************************************************************
                        to Variant assignments
@@ -278,7 +279,10 @@ operator <=(const op1,op2 : variant) dest : boolean;
 
 {
   $Log$
-  Revision 1.9  2002-10-07 15:10:45  florian
+  Revision 1.10  2002-10-09 19:08:22  florian
+    + Variant constants Unassigned and Null added
+
+  Revision 1.9  2002/10/07 15:10:45  florian
     + variant wrappers for cmp operators added
 
   Revision 1.8  2002/10/07 10:27:45  florian