; voraussetzung: liste immer alphabetisch sortiert (beim erstellen von neuen elementen entsprechend einsortieren)

Graphics 640,480,16,2

Type test
   Field name$
   Field id
End Type

; liste von pointern auf das jeweils erste element mit einem bestimmten anfangsbuchstaben (27 zeigt auf 'null', sonst ggf Array out of Bounds später)
Dim pointer.test (27)


; ein paar testwerte
test.test = New test
   test\name$ = "Aal"
   test\id = 1

; immer drauf achten dass die pointer gesetzt werden, wenn ein neues element erstellt wird und dieses den neuen anfang für einen buchstaben bildet
pointer (1) = test.test

test.test = New test
   test\name$ = "Zebra"
   test\id = 2005

pointer (26) = test.test

test.test = New test
   test\name$ = "Zyste"
   test\id = 2006
   
; zyste soll gesucht werden   
suchen$ = "Zebra"


; entsprechenden buchstaben rausfinden und das 1. element mit 'Z' holen

offset = (Asc (Upper$ (Left$ (suchen$, 1))) - Asc ("A") + 1)
element.test = pointer (offset)
; durchsuchen bis element gefunden oder letztes element mit dem buchstaben aufgetaucht


While element <> pointer (offset + 1) And element <> After Last test
   If (element\name$ = suchen$) Then
      ergebnis.test = element
      Exit
   Else
      element = After element
   End If
Wend

; ergebnis ausgeben

Print ergebnis\name$
Print ergebnis\id


WaitKey
End

Listbox_selected()