From: yamat0jp <terukohietori@gmail.com>
Date: Mon, 20 Jan 2020 08:39:38 +0000 (+0900)
Subject: コミットのミス　それからメンテナンス表示をチェック
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=cca064582053b0042f95b8af23b21195f1d3d424;p=newbbs%2Fnewbbs.git

コミットのミス　それからメンテナンス表示をチェック
---

diff --git a/WebModuleUnit1.pas b/WebModuleUnit1.pas
index 5e9c27e..fcc58a5 100644
--- a/WebModuleUnit1.pas
+++ b/WebModuleUnit1.pas
@@ -1143,7 +1143,7 @@ begin
     s := Request.ContentFields.Values['delete'];
     with FDTable4 do
       if s = 'all' then
-        while not (Bof = true) and (Eof = true) do
+        while not((Bof = true) and (Eof = true)) do
           Delete
       else
       begin
@@ -1164,6 +1164,7 @@ begin
         end;
       end;
   end;
+  FDTable4.First;
   Response.ContentType := 'text/html;charset=utf-8';
   Response.Content := master.Content;
 end;