Hi!
Ich bin grad dran einen Texteditor zu programmieren.
Natürlich darf da die Suchfunktion nicht fehlen.
Hab folgenden Code:
Code:
procedure TForm1.Suchen1Click(Sender: TObject);
var
suchwort:string;
begin
FindDialog1.Execute;
suchwort:=FindDialog1.FindText;
if Memo1.Lines.IndexOf(Suchwort)<>-1
then Memo1.Lines
else ShowMessage(Suchwort+'nicht gefunden !');
end;
Nur wie kann ich jetzt das gefundene Wort makieren (blau hinterlegen)?
Bye
Locutus