RichEdit Wort finden, Farbig und Fett markieren

[mare_crisium]

Nils,

Du hast was übersehen:

Die Stelle, an der in dem Beispiel der Text nach dem Suchwort durchsucht wird heisst:

    FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]); FindDialog1.FindText bedeutet nur, dass in diesem Beispiel das Suchwort über einen Dialog, nämlich "FindDialog1" einegeben wurde. Du kannst an derselben Stelle aber auch Deinen Suchstring direkt oder als string-Variable einstellen. Etwa so:

    FoundAt := FindText('suchmal', StartPos, ToEnd, [stMatchCase]); oder

Delphi-Quellcode:

    suchString:='suchmal';
    FoundAt := FindText(suchString, StartPos, ToEnd, [stMatchCase]);

FindText ist eine Methode der Klasse TCustomRichEdit. Wenn Du in Deinem Programm folgende Variablen einführst:

Delphi-Quellcode:

  meinTextDocument : TcustomRichEdit
  fundStelle       : integer;

dann kannst Du anschliessend in diesem Dokument z.B. mit folgender Anweisung die Suche durchführen:

  fundStelle:=meinTextDokument.findText('suchmal',StartPos,ToEnd,[stMatchCase]); Näheres findest Du in der Delphi-Hilfe unter TcustomRichEdit.

Alles klar?

mare_crisium