+ VarArrayPut and VarArrayGet from Igor, resolves #9161

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@8117 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 2 insertions, 0 deletions

diff --git a/rtl/inc/varianth.inc b/rtl/inc/varianth.inc
index 54b5c0ed99..ecd5cc8260 100644
--- a/rtl/inc/varianth.inc
+++ b/rtl/inc/varianth.inc
@@ -341,6 +341,8 @@ operator <=(const op1,op2 : variant) dest : boolean;{$ifdef SYSTEMINLINE}inline;
 
 { variant helpers }
 procedure VarArrayRedim(var A: Variant; HighBound: SizeInt);
+procedure VarArrayPut(var A: Variant; const Value: Variant; const Indices: array of SizeInt);
+function VarArrayGet(const A: Variant; const Indices: array of SizeInt): Variant;
 procedure VarCast(var dest : variant;const source : variant;vartype : longint);
 
 {**********************************************************************