{~AddToVarArray
  добавление значения aValue в массив вариантов aVarArray (в хвост массива)
  с повторением добавления значения aCount раз.
  exchange #3080
  перенесено из модуля Un_Tools.
  это понадобилось для загрузки, а модуль Un_Tools используется для отладки.
  это не совсем правильно но небыло времени на отладку с добавлением Un_Tools.}
function AddToVarArray( var aVarArray: Variant; aValue: Variant; aCount: integer = 1): integer;
var
  i: integer;
begin

    try
      if VarIsNull( aVarArray)
        then begin

          Result := aCount;
          aVarArray := VarArrayCreate([0,aCount - 1], varVariant);
        end else begin

          Result := Length( aVarArray) + aCount;
          SetLength(aVarArray, Length( aVarArray) + aCount);
        end;
      aVarArray[ Result] := aValue;
      except
        ExceptionProc( 'AddToVarArray');
    end;

end;


begin
end.
