Full text Search

[IbeDBob]

I am doing some updates and repairs on some old D5 business stuff (freebie for fiend) with SQLite3 so have to use Zeos 6.6

I would like to speed up a text search which currently uses two BLOB_TEXT Fields, "Class" and "Methods"

Code: Select all

while not(dm.tbl.EOF) do
begin
  SearchData:=dm.tbl.FieldByName(fldClass).AsString+' '+
              dm.tbl.FieldByName(fldMethods).AsString;
  if not(cbSearchMatchCase.Checked) then
    SearchData:=UpperCase(SearchData);
  MatchFound:=AnsiPos(SearchText,SearchData) > 0;
  dm.tbl.Edit;
  dm.tbl.FieldByName(fldSearch).AsBoolean:=MatchFound;
  dm.tbl.Post;
  pbMain.StepIt;
  dm.tbl.Next;
end;

Can anyone point me at some code for using the SQLite FTS extension or something quicker than the above?

I found this but can't get it to work for way too many reasons to define here. I am sure it works as Žarko Gajić stuff is always spot-on, but just not working this installation.
http://zarko-gajic.iz.hr/full-text-txt- ... g-project/

Thanks