Suchbegriff als "ganzes Wort" innerhalb eines Textes suchen

[Helmi]

Habs jetzt so gelöst:

Delphi-Quellcode:

  Offset  := 1;

  repeat
    P := SearchBuf(PWideChar(Zeile), max_Ende, 0, Offset, SuchText, StringSearchOptions);

    If Assigned(P) then
      begin
        akt_Pos := P - PWideChar(Zeile);

        inc(Result);

        Offset := akt_Pos + 1;
      end
    else
      begin
        akt_Pos := 0;
      end;
  until akt_Pos = 0;
end;