' QUESTION: can we make some how empty SAFEARRAYS for other types than ' even if "str" is empty while "Erase ByteArr" will remove that. ' that "ByteArr() = str" will cause ByteArray point to SAFEARRAY in any case, ' NOTE: I'm not sure, but I'm guessing (based on OnErr0r "knowledge" - > ) ' (here StrConv actually not needed for "", ' you plan converting string to bytearray, ' str = VBA.StrConv("", vbFromUnicode) 'generally you should use strconv when ' So we cant use usual "decide" logic: bool = (err.number 0)) ' when array is empty (when arrays are "made" empty in some "specic way"). 'FYI: Erros are not always generated by Ubound & LBOund IsDimensioned = ((UBound(TheArray) - LBound(TheArray)) >= 0) ' it a lil' bit so it "takes in" specific array type & you can skip IsArray ' If you put extensive use to this function then you might modify
If IsArray(TheArray) Then ' we need to test it! otherwise will return false if not an array! Public Function IsDimensioned(ByRef TheArray) As Boolean
' From then on, ReDim Preserve will work. ' First time through, create an array of size 1. If IsEmpty(vArray) Or Not IsDimensioned(vArray) Then ' and returns an array with the element added to it. ' This function adds an element to a Variant array Public Function AddElement(ByVal vArray As Variant, ByVal vElem As Variant) As Variant
0 kommentar(er)
