Merged revisions 100 via svnmerge from

/trunk

git-svn-id: branches/fixes_2_0@359 -

rtl/inc/variant.inc

@@ -599,6 +599,12 @@ procedure VarArrayRedim(var A: Variant; HighBound: SizeInt);
     variantmanager.vararrayredim(a,highbound);
   end;
 
+procedure VarCast(var dest : variant;const source : variant;vartype : longint);
+
+  begin
+    variantmanager.varcast(dest,source,vartype);
+  end;
+
 
 {**********************************************************************
                       Variant manager functions

rtl/inc/varianth.inc

@@ -320,4 +320,5 @@ operator <=(const op1,op2 : variant) dest : boolean;
 
 { variant helpers }
 procedure VarArrayRedim(var A: Variant; HighBound: SizeInt);
+procedure VarCast(var dest : variant;const source : variant;vartype : longint);