Prüfen ob Array initialisiert ist - Versionsgeschichte

Josef Pötzl um 15:31, 21. Jan. 2011

Josef Pötzl — Fri, 21 Jan 2011 15:31:34 GMT

← Nächstältere Version		Version vom 15:31, 21. Jan. 2011
Zeile 14:		Zeile 14:
	...		...
	</source>		</source>
-

	=== Anwendung ===		=== Anwendung ===

Josef Pötzl um 15:31, 21. Jan. 2011

Josef Pötzl — Fri, 21 Jan 2011 15:31:22 GMT

← Nächstältere Version		Version vom 15:31, 21. Jan. 2011
Zeile 4:		Zeile 4:

	<source>		<source>
-	~~Dim TestArray~~() As Long	+	Private Function IsInitializedLongArray(ByRef ArrayToCheck() As Long)
		+	IsInitializedLongArray = Not ((0 / 1) + (Not Not ArrayToCheck) = 0)
		+	End Function

-	~~Debug.Print "IsArray~~(~~TestArray) = "; IsArray~~(~~TestArray~~),	+	Private Function IsInitializedStringArray(ByRef ArrayToCheck() As String)
-	If (0 / 1) + (Not Not ~~TestArray~~) = 0 ~~Then~~	+	IsInitializedStringArray = Not ((0 / 1) + (Not Not ArrayToCheck) = 0)
-	~~Debug.Print "Array ist nicht initialisiert"~~	+	End Function
-	~~Else~~	+
-	~~Debug~~.~~Print "Array ist initialisiert"~~	+	...
-	~~End If~~	+
	</source>		</source>

		+
		+	=== Anwendung ===
	<source>		<source>
	Dim TestArray() As Long		Dim TestArray() As Long
-
-	~~ReDim TestArray(0)~~

	Debug.Print "IsArray(TestArray) = "; IsArray(TestArray),		Debug.Print "IsArray(TestArray) = "; IsArray(TestArray),
-		+	If IsInitializedLongArray(TestArray) Then
-	If (~~0 / 1~~) + (~~Not Not~~ TestArray) = ~~0 Then~~	+	Debug.Print "Array ist initialisiert", "UBound(TestArray) = "; UBound(TestArray)
		+	Else
	Debug.Print "Array ist nicht initialisiert"		Debug.Print "Array ist nicht initialisiert"
-	~~Else~~
-	~~Debug.Print "Array ist initialisiert"~~
	End If		End If
	</source>		</source>
-
	<source>		<source>
-	Dim TestArray(5) As Long	+	Dim TestArray() As Long
		+
		+	ReDim TestArray(3)

	Debug.Print "IsArray(TestArray) = "; IsArray(TestArray),		Debug.Print "IsArray(TestArray) = "; IsArray(TestArray),
-		+	If IsInitializedLongArray(TestArray) Then
-	If (~~0 / 1~~) + (~~Not Not~~ TestArray) = ~~0 Then~~	+	Debug.Print "Array ist initialisiert", "UBound(TestArray) = "; UBound(TestArray)
		+	Else
	Debug.Print "Array ist nicht initialisiert"		Debug.Print "Array ist nicht initialisiert"
-	~~Else~~
-	~~Debug.Print "Array ist initialisiert"~~
	End If		End If
-
	</source>		</source>

Josef Pötzl um 15:10, 21. Jan. 2011

Josef Pötzl — Fri, 21 Jan 2011 15:10:33 GMT

← Nächstältere Version		Version vom 15:10, 21. Jan. 2011
Zeile 1:		Zeile 1:
-	[[Kategorie:Code-Schnipsel~~\|Array - Prüfen ob Array initialisiert ist~~]]	+	[[Kategorie:Code-Schnipsel]]

	Mit <code>IsArray(..)</code> kann man zwar prüfen, ob eine Variable ein Array beinhaltet, man kann aber nicht prüfen, ob ein dynamisches Array dimensioniert/initialisiert ist.		Mit <code>IsArray(..)</code> kann man zwar prüfen, ob eine Variable ein Array beinhaltet, man kann aber nicht prüfen, ob ein dynamisches Array dimensioniert/initialisiert ist.

Josef Pötzl um 15:10, 21. Jan. 2011

Josef Pötzl — Fri, 21 Jan 2011 15:10:02 GMT

← Nächstältere Version		Version vom 15:10, 21. Jan. 2011
Zeile 1:		Zeile 1:
-	[[Kategorie:Code-Schnipsel\|~~abc~~]]	+	[[Kategorie:Code-Schnipsel\|Array - Prüfen ob Array initialisiert ist]]

	Mit <code>IsArray(..)</code> kann man zwar prüfen, ob eine Variable ein Array beinhaltet, man kann aber nicht prüfen, ob ein dynamisches Array dimensioniert/initialisiert ist.		Mit <code>IsArray(..)</code> kann man zwar prüfen, ob eine Variable ein Array beinhaltet, man kann aber nicht prüfen, ob ein dynamisches Array dimensioniert/initialisiert ist.

Josef Pötzl um 15:09, 21. Jan. 2011

Josef Pötzl — Fri, 21 Jan 2011 15:09:22 GMT

← Nächstältere Version		Version vom 15:09, 21. Jan. 2011
Zeile 1:		Zeile 1:
-	[[Kategorie:Code-Schnipsel]]	+	[[Kategorie:Code-Schnipsel\|abc]]

	Mit <code>IsArray(..)</code> kann man zwar prüfen, ob eine Variable ein Array beinhaltet, man kann aber nicht prüfen, ob ein dynamisches Array dimensioniert/initialisiert ist.		Mit <code>IsArray(..)</code> kann man zwar prüfen, ob eine Variable ein Array beinhaltet, man kann aber nicht prüfen, ob ein dynamisches Array dimensioniert/initialisiert ist.

Josef Pötzl um 14:53, 21. Jan. 2011

Josef Pötzl — Fri, 21 Jan 2011 14:53:45 GMT

← Nächstältere Version		Version vom 14:53, 21. Jan. 2011
Zeile 1:		Zeile 1:
	[[Kategorie:Code-Schnipsel]]		[[Kategorie:Code-Schnipsel]]

-	Mit <code>IsArray(..)</code> kann man zwar prüfen, ob eine Variable ein Array beinhaltet, man kann aber nicht prüfen, ob ein dynamisches Array dimensioniert ist.	+	Mit <code>IsArray(..)</code> kann man zwar prüfen, ob eine Variable ein Array beinhaltet, man kann aber nicht prüfen, ob ein dynamisches Array dimensioniert/initialisiert ist.

	<source>		<source>

Josef Pötzl um 14:53, 21. Jan. 2011

Josef Pötzl — Fri, 21 Jan 2011 14:53:16 GMT

← Nächstältere Version		Version vom 14:53, 21. Jan. 2011
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.	+	Mit <code>IsArray(..)</code> 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>

Josef Pötzl um 14:53, 21. Jan. 2011

Josef Pötzl — Fri, 21 Jan 2011 14:53:01 GMT

← Nächstältere Version		Version vom 14:53, 21. Jan. 2011
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>

Josef Pötzl: Die Seite wurde neu angelegt: „Kategorie:Code-Schnipsel If (0 / 1) + (Not Not TestArray) = 0 Then Debug.Print "Array ist nicht initialisiert" Else Debug.Print "Array ist ini…“

Josef Pötzl — Fri, 21 Jan 2011 14:49:43 GMT

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…“

Neue Seite

[[Kategorie:Code-Schnipsel]]

<source>
If (0 / 1) + (Not Not TestArray) = 0 Then
Debug.Print "Array ist nicht initialisiert"
Else
Debug.Print "Array ist initialisiert"
End If
</source>

<source>
Dim TestArray() As Long

ReDim TestArray(0)

If (0 / 1) + (Not Not TestArray) = 0 Then
Debug.Print "Array ist nicht initialisiert"
Else
Debug.Print "Array ist initialisiert"
End If
</source>

<source>
Dim TestArray(5) As Long

If (0 / 1) + (Not Not TestArray) = 0 Then
Debug.Print "Array ist nicht initialisiert"
Else
Debug.Print "Array ist initialisiert"
End If
</source>