LastElement()

Syntax

LastElement(LinkedList())

Ändert das aktuelle Listenelement auf das letzte 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 letzte Element existiert oder nicht (es existiert nicht, wenn die Liste leer ist). Existiert das letzte Element, wird dieser Befehl einen Wert ungleich Null zurückgeben. Wenn das letzte 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 letzten Elements, oder Null wenn das letzte Element nicht existiert.

Beispiel:

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

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

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


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

  If LastElement(Numbers()) <> 0
    MessageRequester("Information", "Der Wert des letzten 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 LastElement(Numbers()) <> 0
    MessageRequester("Information", "Der Wert des letzten Elements ist "+Str(Numbers()), #PB_MessageRequester_OK)
  Else
    MessageRequester("Information", "Die Liste ist leer", #PB_MessageRequester_OK)
  EndIf
    
    
  ; Ein Beispiel nur für fortgeschrittene Anwender
  NewList Numbers.w()

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

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

Unterstützte OS

Alle