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 das erste Element, oder Null wenn das erste Element nicht existiert. Die Struktur jedes Elements wird nachfolgend dargestellt:

  Structure Element
    *Next.Element        ; Zeiger auf das nächste Element in der Liste oder Null, wenn es das letzte Element ist
    *Previous.Element    ; Zeiger auf das vorherige Element in der Liste oder Null, wenn es das erste Element ist
  
    ; Die Datentypen des Anwenders, mit denen die Liste erstellt wurde, folgen nach diesen
    ; zwei Variablen (was bedeutet, das die Anwenderdaten wie folgt gefunden werden können:
    ; Adresse des neuen Elements + 8
  EndStructure 

Sie sollten die Zeiger am Anfang der Elemente nicht verändern, das dies die Struktur der Liste durcheinander bringt, was zu allen möglichen Problemen führen kann.

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.w = FirstElement(numbers())
  If *element
    MessageRequester("Information", "Der Wert des ersten Elements ist "+Str(PeekW(*element+8)), #PB_MessageRequester_OK)
  Else
    MessageRequester("Information", "Die Liste ist leer", #PB_MessageRequester_OK)
  EndIf

Unterstützte OS

All