SetLengthAndZero

procedure SetLengthAndZero(

  var V: ByteArray;

  const NewLength: Integer

); overload;

procedure SetLengthAndZero(

  var V: Word16Array;

  const NewLength: Integer

); overload;

procedure SetLengthAndZero(

  var V: Word32Array;

  const NewLength: Integer

); overload;

procedure SetLengthAndZero(

  var V: Word64Array;

  const NewLength: Integer

); overload;

procedure SetLengthAndZero(

  var V: LongWordArray;

  const NewLength: Integer

); overload;

procedure SetLengthAndZero(

  var V: CardinalArray;

  const NewLength: Integer

); overload;

procedure SetLengthAndZero(

  var V: NativeUIntArray;

  const NewLength: Integer

); overload;

procedure SetLengthAndZero(

  var V: ShortIntArray;

  const NewLength: Integer

); overload;

procedure SetLengthAndZero(

  var V: SmallIntArray;

  const NewLength: Integer

); overload;

procedure SetLengthAndZero(

  var V: LongIntArray;

  const NewLength: Integer

); overload;

procedure SetLengthAndZero(

  var V: IntegerArray;

  const NewLength: Integer

); overload;

procedure SetLengthAndZero(

  var V: Int32Array;

  const NewLength: Integer

); overload;

procedure SetLengthAndZero(

  var V: Int64Array;

  const NewLength: Integer

); overload;

procedure SetLengthAndZero(

  var V: NativeIntArray;

  const NewLength: Integer

); overload;

procedure SetLengthAndZero(

  var V: SingleArray;

  const NewLength: Integer

); overload;

procedure SetLengthAndZero(

  var V: DoubleArray;

  const NewLength: Integer

); overload;

procedure SetLengthAndZero(

  var V: ExtendedArray;

  const NewLength: Integer

); overload;

procedure SetLengthAndZero(

  var V: CurrencyArray;

  const NewLength: Integer

); overload;

procedure SetLengthAndZero(

  var V: ByteCharSetArray;

  const NewLength: Integer

); overload;

procedure SetLengthAndZero(

  var V: BooleanArray;

  const NewLength: Integer

); overload;

procedure SetLengthAndZero(

  var V: PointerArray;

  const NewLength: Integer

); overload;

procedure SetLengthAndZero(

  var V: ObjectArray;

  const NewLength: Integer;

  const FreeObjects: Boolean = False

); overload;