瀏覽代碼

* Remove debug statement

Michaël Van Canneyt 2 年之前
父節點
當前提交
fbe1db32ab
共有 1 個文件被更改,包括 0 次插入2 次删除
  1. 0 2
      packages/fpindexer/src/sqldbindexdb.pp

+ 0 - 2
packages/fpindexer/src/sqldbindexdb.pp

@@ -147,8 +147,6 @@ function TSQLDBIndexDB.GetWordID(const AWord: UTF8String): int64;
 var
 var
   Q: TSQLQuery;
   Q: TSQLQuery;
 begin
 begin
-  if aWord='Just' then
-    Writeln('here');
   if (FLastWord = AWord) then
   if (FLastWord = AWord) then
     Result := FLastWordID
     Result := FLastWordID
   else
   else