Wort suchen und markieren in einem TMemo

[Noobmaster]

Zitat von himitsu:

Zitat von Noobmaster:

Delphi-Quellcode:

     while Pos(Suchtext,MemoWortbaum.Lines[Zeile]) = 0 do
     begin
        Inc(Zeile);
     end;

Tipp: Rate mal was passiert, wenn das Suchwort nicht gefunden wird.

Dann würde das Programm natürlich abschmieren, weil irgendwann eine Zugriffsverletzung stattfindet.
Der Fall ist aber abgedeckt. Ich habe alle Wörter in einer Baumstruktur gespeichert und er prüft vorher, ob das Wort in dem Baum existiert. Das Memo visualisiert meine Baumstruktur.