Suchbegriff als "ganzes Wort" innerhalb eines Textes suchen

[Bummi]

Du kannst das ganze ja auch eine eine "neue" PosExfunktion einzwiebeln

Delphi-Quellcode:

Function PosWholeWord(const find,s:String;Start:Integer=0):Integer;
var  
 p:PChar;
begin
   p := Searchbuf(PChar(s),length(s),Start,0,find,[soWholeWord,soDown]);
   if assigned(p) then
      Result := Integer( p - PChar(s)) + 1
   else
      Result := 0;
end;