Wort suchen und markieren in einem TMemo

[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.

[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.

[Noobmaster]

Danke Leute!

Lösung:

Delphi-Quellcode:

     //Zeile im Memo ermitteln
     Zeile := 0;
     while Pos(Suchtext,MemoWortbaum.Lines[Zeile]) = 0 do
     begin
        Inc(Zeile);
     end;
     //Markieren
        //Position des ersten Zeichens der gefundenen Zeile im Gesamttext ermitteln
        MemoWortbaum.SelStart :=  SendMessage(MemoWortbaum.Handle, EM_LINEINDEX, Zeile, 0);
        MemoWortbaum.SelLength := Length(MemoWortbaum.Lines[Zeile]);
        MemoWortbaum.SetFocus;

[himitsu]

Zitat:

Dann würde das Programm natürlich abschmieren, weil irgendwann eine Zugriffsverletzung stattfindet.

Fast.

Bei TStringList und Co. gibt es eine Exception ala EListError (oder so), sobald der Index nicht verfügbar ist, also ein Indexfehler.
Die MemoAPI, bzw das interne TMemoStrings (TStrings) gibt immer einen Leerstring zurück.


Aber OK, eine Endlosschleife ist auch nicht besser.


Tipp:

Delphi-Quellcode:

MemoWortbaum.SelStart := SendMessage(MemoWortbaum.Handle, EM_LINEINDEX, Zeile, 0);
//aka
MemoWortbaum.SelStart := MemoWortbaum.Perform(EM_LINEINDEX, Zeile, 0);

Grade gesehn, SetCaretPos nutzt auch EM_LINEINDEX.

Delphi-Quellcode:

Memo.CaretPos := Point(0, Zeile);  // X, Y aka Spalte, Zeile
Memo.SelLength := Length(MemoWortbaum.Lines[Zeile]);

[Noobmaster]

Danke, ich werds berücksichtigen