From: yamat0jp <terukohietori@gmail.com>
Date: Mon, 20 Jan 2020 08:12:10 +0000 (+0900)
Subject: master にまだ修正が必要でした
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=65aaece0d903a9ef99b4c798b511d2e21e0a73ea;p=newbbs%2Fnewbbs.git

master にまだ修正が必要でした
---

diff --git a/WebModuleUnit1.pas b/WebModuleUnit1.pas
index 57edfc1..5e9c27e 100644
--- a/WebModuleUnit1.pas
+++ b/WebModuleUnit1.pas
@@ -1143,9 +1143,8 @@ begin
     s := Request.ContentFields.Values['delete'];
     with FDTable4 do
       if s = 'all' then
-        repeat
-          Delete;
-        until (Bof = true) and (Eof = true)
+        while not (Bof = true) and (Eof = true) do
+          Delete
       else
       begin
         First;