Ist Array initialisiert?

[oxyd21]

Hallo,

wie kann ich testen ob ein dynamischer Array initialisiert wurde (außer Fehler 200)?


VG, Michael

[koehlerbv]

Isarray

[oxyd21]

Hmm, dann habe ich einen anderen Fehler.

[oxyd21]

Es wird ein nicht initialisiertes Array in eine Methode als Variant übergeben. Wenn ich dieses Variant nun mit IsArray teste, liefert er TRUE.

Hat jemand ne weitere Idee? 

[ascabg]

Hallo,

Mich wuerde mal interessieren, wie die Variant-Variable, die den Array beeinhaltet, definiert wurde.


Andreas

[oxyd21]

klar... etwas zusammengekürzt

Code

Function CheckDocument(objError as ErrorObject) as Variant
 Dim strFArray() As String
 ' tralala

If FieldsFilledMulti (doc, strFARRAY, objError) = False Then Exit Function


End Function ' CheckDocument

Hier kommt mein Fehler, auf den ich gern zukünftig die Arrays testen würde. Ich produziere den hier nur, weil ich oben zuviel auskommentiert habe.

Code

Function FieldsFilledMulti (doc As NotesDocument,  strFArray As Variant, objError as ErrorObject) As Variant

    ' tralala

Print "Dataype: "+CStr(DataType(strFARRAY))  ' 8712
Print "Empty: "+CStr(IsEmpty(strFieldsARRAY))        ' False
Print "Scalar: "+CStr(IsScalar(strFARRAY))        ' False
Print "Array: "+CStr(IsArray(strFARRAY))           ' True

' hier kracht's
For i = LBound(strFARRAY,2) To UBound(strFARRAY,2)

'...
End Function ' FieldsFilledMulti 

[Peter Klett]

Warum ,2?

For i = LBound(strFARRAY,2) To UBound(strFARRAY,2)

[oxyd21]

Weil's eigentlich ein zweidimensionales Array ist/ sein sollte.

LBound ( arrayName [ , dimension ] )

Wenn er an der Stelle nicht Error 200 (ErrUninitDynArray) werfen würde, würde ich den Fehler ja auf die fehlende Dimension schieben.

Macht für so etwas ein Ticket bei IBM Sinn?

[Peter Klett]

Ich würde mir dazu im Debugger mal die tatsächliche Struktur der Variabeln ansehen, vermutlich ist es ein Array, deshalb keine Fehlermeldung vorher, aber nur ein eindimensionales.

Du könntest auch sinngemäß prüfen

If IsArray (arrayName) Then
   Forall an In arrayName
      If Not IsArray (an) -> Fehler
   End Forall
End If

Dann hättest Du geprüft, ob in Deinem Array nur Arrays enthalten sind (zweidimensional, falls ich es nicht total falsch verstanden habe).