'--------------------------------------------------------------------------
'Funktion     : ChildVorhanden
'Beschreibung : Überprüft ob im übergebenen Node-Objekt der angegebene
'               Schlüssel vorhanden ist. Jetzt auch rekursiv
'Version      : 2
'Autor        : Der langhaarige Bombenleger
'Parameter    : Anfang  = Hauptnode, in der gesucht werden soll
'               KeyFeld = Schlüssel, nach dem gesucht werden soll
'Rückgabewert : Boolean = gefunden
'Beispiel     :
'--------------------------------------------------------------------------
 
Public Function ChildVorhanden(Anfang As Node, _
                               KeyFeld As String) As Boolean
Dim i As Node
ChildVorhanden = False
 
If Anfang.Children > 0 Then
  'Zähler-Element auf erstes untergeordnetes Kind setzen
  Set i = Anfang.Child
  Do
    If i.Key = KeyFeld Then
      ChildVorhanden = True
    Else
      'Rekursiv durchsuchen
      If i.Children > 0 Then
        ChildVorhanden = ChildVorhanden(i, KeyFeld)
        If ChildVorhanden Then Exit Do
      End If
    End If
 
    'EOF?
    If i <> Anfang.Child.LastSibling Then
      Set i = i.Next 'rücke in der Liste um ein Element vor
    End If
  Loop Until i = Anfang.Child.LastSibling
  If i.Key = KeyFeld Then
    ChildVorhanden = True
  End If
End If
End Function

Seitdem ich einen Computer habe, l?se ich mit ihm alle Probleme, die ich ohne ihn nicht hatte.