search 機能だけ回復した

diff --git a/WebModuleUnit1.pas b/WebModuleUnit1.pas
index 837dcc2..2b2943d 100644 (file)
--- a/WebModuleUnit1.pas
+++ b/WebModuleUnit1.pas
@@ -182,8 +182,10 @@ begin
   begin
     cnt := count;
     com := 3;
-    FDMemTable1.First;
     s := FDTable1.FieldByName('dbname').AsString;
+    if not FDMemTable1.Active then
+      RESTRequest1.Execute;
+    FDMemTable1.First;
     while not FDTable2.Eof and (cnt > 0) do
     begin
       if com = 0 then
@@ -802,6 +804,11 @@ begin
     FText := FText + #13#10 + Format(str, [wrd]);
     dec(cnt, Length(wrd));
     inc(ln);
+    if FList.count = ln then
+    begin
+      bool := false;
+      Exit;
+    end;
     line := FList[ln];
     id := 1;
     state := checkState(id, wrd, line);