Gemeinsam zu mehr Effizienz in der Anwendungserstellung
K (Die Seite wurde neu angelegt: „Kategorie:Code-Schnipsel <source> If (0 / 1) + (Not Not TestArray) = 0 Then Debug.Print "Array ist nicht initialisiert" Else Debug.Print "Array ist ini…“) |
K |
||
| Zeile 1: | Zeile 1: | ||
[[Kategorie:Code-Schnipsel]] | [[Kategorie:Code-Schnipsel]] | ||
| + | |||
| + | Mit IsArray(..) kann man zwar prüfen, ob eine Variable ein Array beinhaltet, man kann aber nicht prüfen, ob ein dynamisches Array dimensioniert ist. | ||
<source> | <source> | ||
| + | Dim TestArray() As Long | ||
| + | |||
| + | Debug.Print "IsArray(TestArray) = "; IsArray(TestArray), | ||
If (0 / 1) + (Not Not TestArray) = 0 Then | If (0 / 1) + (Not Not TestArray) = 0 Then | ||
Debug.Print "Array ist nicht initialisiert" | Debug.Print "Array ist nicht initialisiert" | ||
| Zeile 13: | Zeile 18: | ||
ReDim TestArray(0) | ReDim TestArray(0) | ||
| + | |||
| + | Debug.Print "IsArray(TestArray) = "; IsArray(TestArray), | ||
If (0 / 1) + (Not Not TestArray) = 0 Then | If (0 / 1) + (Not Not TestArray) = 0 Then | ||
| Zeile 23: | Zeile 30: | ||
<source> | <source> | ||
Dim TestArray(5) As Long | Dim TestArray(5) As Long | ||
| + | |||
| + | Debug.Print "IsArray(TestArray) = "; IsArray(TestArray), | ||
If (0 / 1) + (Not Not TestArray) = 0 Then | If (0 / 1) + (Not Not TestArray) = 0 Then | ||
| Zeile 29: | Zeile 38: | ||
Debug.Print "Array ist initialisiert" | Debug.Print "Array ist initialisiert" | ||
End If | End If | ||
| + | |||
</source> | </source> | ||
Mit IsArray(..) kann man zwar prüfen, ob eine Variable ein Array beinhaltet, man kann aber nicht prüfen, ob ein dynamisches Array dimensioniert ist.
Dim TestArray() As Long Debug.Print "IsArray(TestArray) = "; IsArray(TestArray), If (0 / 1) + (Not Not TestArray) = 0 Then Debug.Print "Array ist nicht initialisiert" Else Debug.Print "Array ist initialisiert" End If
Dim TestArray() As Long ReDim TestArray(0) Debug.Print "IsArray(TestArray) = "; IsArray(TestArray), If (0 / 1) + (Not Not TestArray) = 0 Then Debug.Print "Array ist nicht initialisiert" Else Debug.Print "Array ist initialisiert" End If
Dim TestArray(5) As Long Debug.Print "IsArray(TestArray) = "; IsArray(TestArray), If (0 / 1) + (Not Not TestArray) = 0 Then Debug.Print "Array ist nicht initialisiert" Else Debug.Print "Array ist initialisiert" End If