FirstElement()

Syntax

FirstElement(LinkedList())

Ändert das aktuelle Listenelement auf das erste Listenelement.

Parameter:
LinkedList() - 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:
Der von diesem Befehl zurückgegebene Wert zeigt an, ob das erste Element existiert oder nicht (es existiert nicht, wenn die Liste leer ist). Existiert das erste Element, wird dieser Befehl einen Wert ungleich Null zurückgeben. Wenn das erste Element nicht existiert, wird ein Wert von Null zurückgegeben.

Nur für fortgeschrittene Anwender:
Der Wert, den dieser Befehl zurückgibt, ist ein Zeiger auf die Daten des ersten Elements, oder Null wenn das erste Element nicht existiert.

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

Unterstützte OS

Alle