Suche in einem Text

[-homer-]

hi,

in einer Anwendung soll ein bestimmter Text nach einem bestimmten wort durchsucht werden. wenn dieses wort gefunden wurde soll man die stelle aus dem text sehen. also nehmen wir mal an wir haben ein memo feld auf der form. in diesem memo steht irgentwas drin. links daneben ist ei edit und ein button. wenn ich auf den button soll der text im memo feld nach dem wort im edit durchsucht werden.wenn daein zutreffendes wort gefunden wurde, dann soll das memo feld an diese stelle gehen.

könnt ihr mir da helfen?

-homer-
ps.: optinal wäre wenn dieses wort im text dann noch rot unterstrichen ist !

[Luckie]

Bei den Delphi Demos ist ein RichEdit Demo dabei und in der Hilfe gibt es ein Beispiel mit Quellcode, wie man so was macht.

[-homer-]

danke !

[SirThornberry]

und für diejenigen die, die Hilfe nicht nutzen wollen (ich hoffe sowas gibts nicht) hier ein anderer Ansatz:
mit Pos einfach prüfen an welcher Stelle das Wort ist. Und wenn Pos das Wort gefunden hat, einfach SelStart des memos setzen

Delphi-Quellcode:

var LPos: Integer;
begin
  LPos := pos(suchwort, Memo1.Text);
  if LPos > 0 then
    Memo1.SelStart := LPos;
end;

[-homer-]

danke,

aber wie kann ich dann das gefundene wort markieren?

[Luckie]

In dem du SelLength auf die Länge des Wortes setzt.