FirstElement()

Syntax

*Ergebnis = FirstElement(Liste())

Ändert das aktuelle Listenelement auf das erste Listenelement.

Parameter

Liste()

Der Variablenname der verknüpften Liste, welche mit dem NewList Befehl erstellt wurde. Sie müssen die Klammern nach dem Listennamen immer angeben.

Rückgabewert

Gibt bei Erfolg die Adresse (Zeiger) auf die Daten des ersten Elements zurück, und Null wenn es keine Elemente in der Liste gibt.

Beispiel

  ; Ein Beispiel der einfachen Benutzung
  NewList Numbers.w() 

  AddElement(Numbers())
  Numbers() = 5
  AddElement(Numbers())
  Numbers() = 8

  FirstElement(Numbers())
  MessageRequester("Information", "Der Wert des ersten Elements ist "+Str(Numbers()), #PB_MessageRequester_OK)


  ; Ein Beispiel, welches den Rückgabewert verwendet
  NewList Numbers.w()

  If FirstElement(Numbers()) <> 0
    MessageRequester("Information", "Der Wert des ersten Elements ist "+Str(Numbers()), #PB_MessageRequester_OK)
  Else
    MessageRequester("Information", "Die Liste ist leer", #PB_MessageRequester_OK)
  EndIf
    
  AddElement(Numbers())
  Numbers() = 5
  AddElement(Numbers())
  Numbers() = 8
    
  If FirstElement(Numbers()) <> 0
    MessageRequester("Information", "Der Wert des ersten Elements ist "+Str(Numbers()), #PB_MessageRequester_OK)
  Else
    MessageRequester("Information", "Die Liste ist leer", #PB_MessageRequester_OK)
  EndIf


  ; Ein Beispiel für fortgeschrittene Anwender
  NewList Numbers.w()

  AddElement(Numbers())
  Numbers() = 5
  AddElement(Numbers())
  Numbers() = 8

  *Element.Word = FirstElement(Numbers())
  If *Element
    MessageRequester("Information", "Der Wert des ersten Elements ist "+Str(*Element\w), #PB_MessageRequester_OK)
  Else
    MessageRequester("Information", "Die Liste ist leer", #PB_MessageRequester_OK)
  EndIf

Siehe auch

LastElement(), PreviousElement(), NextElement(), SelectElement(), ListIndex()

Unterstützte OS

Alle