paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 17:19:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Added VarCast routine

Browse Source 
git-svn-id: trunk@100 -
This commit is contained in:
michael 2005-05-25 20:25:58 +00:00
parent ad5783464d
commit 77152e9d1b
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/variant.inc
View File

@ -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

1
rtl/inc/varianth.inc
View File

@ -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 $