OpenOffice.info

Sub Main
	a = array(array(1,2,3), array("a","s","d"), array(4,5,6))
	DeleteIndexFromArray(a,-1)
End Sub

Sub DeleteIndexFromArray(aArray, nIndexToDelete as Integer)
	nUpperBound = -1
	aNewArray = Array()
	For i=0 To UBound(aArray)
		If i <> nIndexToDelete Then
			nUpperBound = nUpperBound + 1
			ReDim Preserve aNewArray(nUpperBound)
			aNewArray(nUpperBound) = aArray(i)
		End If
	Next i
	aArray = aNewArray
End Sub

Servus

Ohne weiteres geht das nicht, Du musst eine Kopie des Arrays ohne das entsprechende Element erstellen

[code]Sub Main
a = array(array(1,2,3), array("a","s","d"), array(4,5,6))
DeleteIndexFromArray(a,-1)
End Sub

Sub DeleteIndexFromArray(aArray, nIndexToDelete as Integer)
nUpperBound = -1
aNewArray = Array()
For i=0 To UBound(aArray)
If i <> nIndexToDelete Then
nUpperBound = nUpperBound + 1
ReDim Preserve aNewArray(nUpperBound)
aNewArray(nUpperBound) = aArray(i)
End If
Next i
aArray = aNewArray
End Sub[/code]

a = array(array(1,2,3), array("a","s","d"), array(4,5,6))

Hallo!
Wie kann ich ein Element aus Array Löschen?
[code]a = array(array(1,2,3), array("a","s","d"), array(4,5,6))[/code]
Es sind jetzt 3 Elemente im Array. Mittlere soll gelöscht werden. Es bleiben nur 2 Elemente. Zahlen Arrays.
Suche hat Leider nichts ergeben. Dimensionierung habe ich schon verstanden, aber wie dabei ich gezielt unbrauchbare Daten lösche?
MfG