Zitat von
mkinzler:
Verwende PosEx um die Suche an dieser Stelle als Offset fortzusetzten.
An der Stelle danach,
denn PosEx sucht ab dem Index, welcher angegeben wird
und wenn man den Index angibt, wo vorher was gefunden wurde,
dann findet PosEx ja immer wieder das Alte und nicht das danach.
Code:
i := Pos(Wort, ListBox.Items[i]);
While i > 0 do Begin
... // i = Index des Gefundenen
i := PosEx(Wort, ListBox.Items[i], i [b]+ 1[/b]);
End;