Nur ganze Wörter finden

[Luckie]

Probier es mal mit dem Text im Anhang. Bei mir markiert er 26 Wörter. Das letzet "and" findet er im 8. Vers und bei den "rhe"s findet er nur das im Titel. Ach so, in der Liste habe ich zum Testen "and" und "the".

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.Add('and');
    sl.Add('the');
    ShowMessage(IntToStr(HighlightWords(RichEdit1, sl, [fsBold, fsUnderline],
      clRed)) + ' Wörter markiert');
  finally
    FreeAndNil(sl);
  end;
end;