
(und ja, mein code geht so nicht. weiß nicht was ich da letzte nacht gebacken hab

Code: Alles auswählen
ForEach DB1Zeile()
If DB2Zeile()\qStringHash=DB1Zeile()\qStringHash
lx.l = 1
Break ;<--- Hier ist was neues!
EndIf
Next
Code: Alles auswählen
Funktion Suche(zusuchen, erstes, letztes, liste)
mitte = (erstes + letztes) / 2
wenn zusuchen < liste(mitte)
gibzurück Suche(zusuchen, erstes, mitte - 1, liste)
sonst wenn zusuchen > liste(mitte)
gibzurück Suche(zusuchen, mitte + 1, letztes, liste)
sonst
gibzurück liste(mitte)
EndeFunktion
GibAus Suche(?, 0, elementanzahl, liste)