Volltextsuche

[patti]

Und warum lässt du die StringList sortieren? Du läufst ja trotzdem die komplette Liste durch, also macht das Sortieren gar keinen Sinn - sondern kostet nur Zeit beim Insert/Delete.

Edit: Sehe gerade dein Edit...

[DeddyH]

StrUtils, steht auch im Source

[himitsu]

Zitat von DeddyH:

StrUtils, steht auch im Source

Und in der (verlinkten) OH.

[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;

[himitsu]

Um den Anfang auch noch wegzuoptimieren...

Delphi-Quellcode:

procedure TWoerterbuch.Filter(const Suchwort: string; FilterResult: TStrings);
var
  i: Integer;
begin
  Assert(Assigned(FilterResult));
  FilterResult.BeginUpdate;
  try
    FilterResult.Clear;
    if Suchwort <> '' then begin
      FWoerter.Find(SearchWord, i);
      while (i < FWoerter.Count) and AnsiStartsText(Suchwort, FWoerter[i]) do
        FilterResult.Add(FWoerter[i]);
    end else
      FilterResult.AddStrings(FWoerter);
  finally
    FilterResult.EndUpdate;
  end;
end;

(ich hoffe es funktioniert)

Delphi-Quellcode:

function TDictionary.Filter(const SearchWord: string; FilterResult: TStrings; OnlyAtTheBeginningOfWords: Boolean): Boolean;
var
  i: Integer;
begin
  Assert(Assigned(FilterResult));
  FilterResult.BeginUpdate;
  try
    FilterResult.Clear;
    if SearchWord <> '' then begin
      FListOfWords.Find(SearchWord, i);
      while (i < FListOfWords.Count)
          and ((not OnlyAtTheBeginningOfWords and AnsiContainsText(SearchWord, FListOfWords[i]))
            or (OnlyAtTheBeginningOfWords and AnsiStartsText(SearchWord, FListOfWords[i]))) do 
        FilterResult.Add(FListOfWords[i]);
    end else
      FilterResult.AddStrings(FListOfWords);
  finally
    Result := FilterResult.Count <> 0;
    FilterResult.EndUpdate;
  end;
end;

Und wenn man nun noch Names und Values verwendet, bekommt man auch noch die Übersetzung mit rein.

[haentschman]

ganz ehrlich ?
und wenn es nur 1000 Wörter sind würde ich eine Query auf eine Tabelle in einer DB loslassen. Diese Performance ist glaub ich kaum zu toppen...
...und das alles ohne Kopfschmerzen man kann alles unnötig verkomplizieren...

[himitsu]

Wobei es notfalls auch ohne Datenbank ginge.
Also einfach nur ein TClientDataSet. (da gibt es Insert, Post, Locate und einen Filter)

Aber zum Lernen hat die manuelle Pascal-Variante doch auch ihre Vorteile.

[DeddyH]

Find funktioniert für Teilstrings? Da muss ich was überlesen haben.

[himitsu]

Zitat von DeddyH:

Find funktioniert für Teilstrings?

Jain, eigentlich nicht.

Find findet nur ganze Strings.

Aber wenn es nichts findet, dann gibt es dennoch die Stelle zurück, wo das Wort zu finden wäre, wäre es vorhanden gewesen.
Also die perfekte Stelle, um dort mit der Suche zu beginnen. (oder um ein Insert zu machen, so wie es praktisch vorgesehn ist)

Aber notfalls könnte man das ja nochmal ausprobieren, um ganz sicher zu gehn.

[haentschman]

...findest du immer eine Ausrede ?