Ein bestimmtes Word kontrollieren

[SirThornberry]

hier mal ein kleines Beispiel wie man das macht. Folgendes ins MouseDown des RichEdit.

Delphi-Quellcode:

var LText, LSelectedWord: String;
    LPos, LEnd, LLen: Integer;
begin
  LText := RichEdit1.Lines.Text;
  LLen := Length(LText);
  LPos := RichEdit1.SelStart;
  LEnd := LPos;
  while (LEnd <= LLen) and not(LText[LEnd] in [',','.',' ',#13,#10]) do
    inc(LEnd);
  while (LPos >= 1) and not(LText[LPos] in [',','.',' ',#13,#10]) do
    dec(LPos);
  inc(LPos);
  dec(LEnd);

  //Wenn ein Wort gefunden wurde
  if LEnd - LPos > 0 then
  begin
    //das markierte Wort in einen String kopieren
    Setlength(LSelectedWord, LEnd - LPos + 1);
    move(LText[LPos], LSelectedWord[1], Length(LSelectedWord));
    caption := '"' + LSelectedWord + '"';

    RichEdit1.SelStart := LPos - 1;
    RichEdit1.SelLength := LEnd - LPos + 1;
  end;

Dann sieht man in der Caption des Forms das Wort welches angeklickt wurde und dieses wort wird auch markiert.