+ Added VarCast routine

git-svn-id: trunk@100 -

rtl/inc/variant.inc

@@ -593,6 +593,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,6 +320,7 @@ 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);
 
 {
   $Log: varianth.inc,v $