nicht nur erstes Vorkommnis in Memo markieren

[Christian Seehase]

Moin lkz,

ich hab' ja gleich gesagt: FindText

Delphi-Quellcode:

  if not node.HasChildren then begin
  Memo.Lines.BeginUpdate;
  try
    Memo.SelectAll;
    Memo.SelAttributes.Color := clBlack;
    sSearch    := node.Text;
    iSearchLen := length(sSearch);
    iLen       := length(Memo.Lines.Text);
    iPos       := Memo.FindText(node.Text,1,iLen,[]);
    while iPos <> -1 do begin
      Memo.SelStart  := iPos;
      Memo.SelLength := iSearchLen;
      Memo.SelAttributes.Color:= clred;
      iPos := Memo.FindText(node.Text,iPos+iSearchLen,iLen,[]);
    end;
  finally
    Memo.SelLength := 0;
    Memo.Lines.EndUpdate;
  end;