Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: tks am 30.04.08 - 09:37:25

Titel: Prüfen ob Liste leer ist
Beitrag von: tks am 30.04.08 - 09:37:25

Hallo zusammen.

Ich erstelle in einem Script eine Liste (Dim pipapo List as String) und fülle diese. Während des weiteren Ablaufs werden Elemente der Liste wieder gelöscht. Und zum Schluss möchte ich feststellen, ob die Liste komplett leer ist.

Problem: Wie mache ich das?

Mit IsEmpty oder IsList bin ich nicht zum Ziel gekommen. Obwohl kein Listeneintrag mehr vorhanden ist, gibt IsEmpty "False" zurück.

Ich stehe voll auf dem Schlauch.

Titel: Re: Prüfen ob Liste leer ist
Beitrag von: Werner Götz am 30.04.08 - 09:39:34

Function HasElements(lst As Variant) As Single
%REM
Die Funktion testet, ob eine Liste Elemente enthält
%END REM
   
   Forall e In lst 'Wenn die Liste Elemente enthält wird die Funktion sofort verlassen
      HasElements = True
      Exit Function
   End Forall
   HasElements = False 'Die Liste hatte keine Elemente   
End Function

Titel: Re: Prüfen ob Liste leer ist
Beitrag von: tks am 30.04.08 - 09:58:43

Ui. Da hätte man dann aber auch selbst.....  :P

Vielen Dank für die Lösung. Klappt wunderbar.