LastElement()

Syntax

*Ergebnis = LastElement(Liste())

Ändert das aktuelle Listenelement auf das letzte 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 letzten 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

  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

Siehe auch

FirstElement(), PreviousElement(), NextElement(), SelectElement(), ListIndex()

Unterstützte OS

Alle