* fixed tw4700.

git-svn-id: trunk@5388 -

rtl/inc/variant.inc

@@ -953,6 +953,21 @@ operator :=(const source : terror) dest : olevariant;{$ifdef SYSTEMINLINE}inline
   begin
     variantmanager.olevarfromint(dest,source,-sizeof(terror));
   end;
+  
+
+function Unassigned: Variant; // Unassigned standard constant
+begin
+  VarClearProc(TVarData(Result));
+  TVarData(Result).VType := varempty;
+end;
+
+
+function Null: Variant;       // Null standard constant
+  begin
+    VarClearProc(TVarData(Result));
+    TVarData(Result).VType := varnull;
+  end;
+
 {**********************************************************************
                       Variant manager functions
  **********************************************************************}

rtl/inc/varianth.inc

@@ -195,6 +195,11 @@ type
 procedure GetVariantManager(var VarMgr: TVariantManager);
 procedure SetVariantManager(const VarMgr: TVariantManager);
 
+{ Global constants. Needed here only for compatibility. }
+
+function Unassigned: Variant; // Unassigned standard constant
+function Null: Variant;       // Null standard constant
+
 const
   VarClearProc :  procedure(var v : TVarData) = nil;
   VarAddRefProc : procedure(var v : TVarData) = nil;