Full text Search

In this forum we will discuss things relating the ZEOSLib 6.6.x stable versions

Moderators: gto, EgonHugeist

Post Reply
IbeDBob
Junior Boarder
Junior Boarder
Posts: 47
Joined: 27.05.2010, 21:04

Full text Search

Post by 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
Thanks

Dyslexic Bob
Post Reply