Suchbegriff als "ganzes Wort" innerhalb eines Textes suchen

[Volker Z.]

Hallo,

versuch mal folgendes (auf Deine Problemstellung anzupassen):

Delphi-Quellcode:

procedure TForm4.Button2Click(Sender: TObject);
var
  c, i, l : Integer;
  p, q    : PAnsiChar;
  s       : Integer;
begin
  c := 0;
  i := 1;
  s := 'und';
  l := Length (Memo1.Lines.Text);
  p := PAnsiChar (Memo1.Lines.Text);
  q := SearchBuf (p, l, i, i, s, [soDown, soWholeWord]);

  while q <> nil do
    begin
      Inc (c);
      i := q - p;
      q := SearchBuf (p, l, i, i, s, [soDown, soWholeWord]);
    end
end;

Gruß