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