Volltextsuche

[DeddyH]

Um mein Edit (und pattis Einwand) jetzt nicht so doof da stehen zu lassen:

Delphi-Quellcode:

procedure TWoerterbuch.Filter(const Suchwort: string; FilterResult: TStrings);
var
  i: integer;
  MatchingFound: Boolean;
begin
  Assert(Assigned(FilterResult));
  FilterResult.BeginUpdate;
  try
    (* Noch keine Treffer gefunden *)
    MatchingFound := false;
    FilterResult.Clear;
    for i := 0 to FWoerter.Count - 1 do
      if (Suchwort = '') or AnsiStartsText(Suchwort, FWoerter[i]) then
        begin
          FilterResult.Add(FWoerter[i]);
          MatchingFound := true;
        end
      else
        (* Wenn bereits Treffer gefunden wurden, der aktuelle String
           aber nicht mehr passt, sind auch keine weiteren Treffer mehr
           zu erwarten -> Schleife verlassen *)
        if MatchingFound then
          break;
  finally
    FilterResult.EndUpdate;
  end;
end;