Bestimmtest Wort in RichEdit hervorgeben

[Christian18]

Hallo,

ich möchte gerne in meiner RichEdit Komponente ein Wort immer hervorheben. Das wort Hallo soll immer wenn es geschrieben wird hervorgehoben werden. Wie kann ich das machen???

MFG Christian18

[Flips]

Hi.
Meinst du Syntaxhighlighting?

Wenn ja dann sie mal hier nach
FAQsen Tutorial
Delphi-Tutorials - Syntaxhighlighting

[marabu]

Hallo Christian,

ein erster Ansatz könnte so aussehen:

Delphi-Quellcode:

procedure TDemoForm.RichEditChange(Sender: TObject);
var
  iStart, iLength: Integer;
  ida: TIntegerDynArray;
  i: Integer;
  sText: String;
begin
  sText := 'Hallo';
  with RichEdit do
  begin
    LockWindowUpdate(Handle);
    iStart := SelStart;
    iLength := SelLength;
    SelStart := 0;
    SelLength := MaxInt;
    SelAttributes.Assign(DefAttributes);
    ida := FindAll(Lines.Text, sText);
    for i := Low(ida) to High(ida) do
    begin
      SelStart := Pred(ida[i]);
      SelLength := Length(sText);
      SelAttributes.Color := clRed;
      SelAttributes.Style := [fsBold];
    end;
    SelStart := iStart;
    SelLength := iLength;
    LockWindowUpdate(0);
  end;
end;

Grüße vom marabu

[Flips]

ich bin grad auf da arbeit, ich kann ned soviel auf einma schreibe