Text makieren!

[[MORD]Locutus]

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

[Gast]

Hi,

bei der Memo.Kompo gibt es die Eigenschaften SelLength, SelStart, SelText

SelLength : Die Eigenschaft SelLength gibt die Anzahl der markierten Zeichen (Bytes) an.

SelStart : Die Eigenschaft SelStart gibt die Position des ersten markierten Zeichens im Text an.

SelText : Die Eigenschaft SelText gibt den markierten Textbereich des Eingabefeldes an.

Das sind alles aus der Delphi Hilfe mit einem Beispiel, was sogar eine Suche beschreibt.

[Daniel B]

Moin,

ich schliesse mich dem Vorredner an.
Ein kleinen Tip habe ich allerdings noch.

In der Button-Prozedur, schreib nur FindDialog.Execute; rein.
Und für den restlichen Code zum Markieren, die OnFind-Prozedur des Dialogs.
Ein bisschen was zum Thema SelStart usw. gibt es hier: Klick!

Grüsse, Daniel

[Christian Seehase]

Moin Locutus,

erst einmal herzlich willkommen.

Wenn Du Dir das Suchen etwas erleichtern willst, dann kannst Du statt des TMemo mal ein TRichEdit nehmen.
Das kennt die Methode FindText.

BTW: Assimilieren is' nicht

[[MORD]Locutus]

Danke sehr!
Ihr habt mir sehr geholfen.
Übrigens is das für die Schule und da darf ich nur eine Memokomponente benutzen!
Und das mit dem assimilieren überleg ich mir noch

Bye
Locutus