RichEdit Wort finden, Farbig und Fett markieren

[Nils_13]

Hi,

wie kann ich im RichEdit ein Wort finden und es farbig und fett markieren ? Mit SelAttributes markiere ich das gesuchte Wort zwar, aber wie finde ich es überhaupt ?

[Sharky]

Hai Nils,

die Forensuche hat mir nach 10 Sekunden das Wort FindText vor die Äuglein gehalten

[Nils_13]

Zitat von Sharky:

Hai Nils,

die Forensuche hat mir nach 10 Sekunden das Wort FindText vor die Äuglein gehalten

Ich will einen kleinen Code, der einfach sucht ohne irgendeinen Dialog anzuzeigen.

[Sharky]

Zitat von Nils_13:

... Ich will einen kleinen Code, der einfach sucht ohne irgendeinen Dialog anzuzeigen.

Wo ist denn von einem Dialog die Rede? Hast Du dir FindText denn angesehen?

[Nils_13]

Zitat von Sharky:

Zitat von Nils_13:

... Ich will einen kleinen Code, der einfach sucht ohne irgendeinen Dialog anzuzeigen.

Wo ist denn von einem Dialog die Rede? Hast Du dir FindText denn angesehen?

Ja das hab ich. Aber in der Delphi-Hilfe ist immernur vom FindDialog die Rede.

[Neutral General]

Dann probiers doch einfach mal aus und dann wirst du wahrscheinlich sehen das, das kein Dialog ist

[Nils_13]

Zitat von Neutral General:

Dann probiers doch einfach mal aus und dann wirst du wahrscheinlich sehen das, das kein Dialog ist

FindDialog1.Execute Und das soll kein Dialog sein ?

[Neutral General]

Sag ma wer redet bittesehr von FindDialog ??

von FindText ist die Rede -.-

[Nils_13]

Das zeigt mir Delphi an:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

begin
  FindDialog1.Position := Point(RichEdit1.Left + RichEdit1.Width, RichEdit1.Top);
  FindDialog1.Execute;
end;

procedure TForm1.FindDialog1Find(Sender: TObject);
var
  FoundAt: LongInt;
  StartPos, ToEnd: Integer;
begin
  with RichEdit1 do
  begin
    { Suche hinter aktueller Markierung beginnen (falls vorhanden), }
    { andernfalls am Textanfang starten. }
    if SelLength <> 0 then

      StartPos := SelStart + SelLength
    else

      StartPos := 0;

    { ToEnd ist die Länge von StartPos bis zum Textende im RTF-Eingabefeld }

    ToEnd := Length(Text) - StartPos;

    FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, [stMatchCase]);
    if FoundAt <> -1 then
    begin
      SetFocus;
      SelStart := FoundAt;
      SelLength := Length(FindDialog1.FindText);
    end;
  end;
end;

Was ist FindText eigentlich, Delphi kennt es nicht.

[Ultimator]

Bist du so beschränkt oder tust du nur so?

Wenn du FindText in deine Unit schreibst und F1 drückst, kommen da 4 Möglichkeiten:

FINDTEXT
FindText
FindText (Eigenschaft von TFindDialog) (VCL-Referenz)
FindText (Eigenschaft von TCustomRichEdit) (VCL-Referenz)

Welche passt wohl?