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

[newbbs/newbbs.git] / WebModuleUnit1.pas

diff --git a/WebModuleUnit1.pas b/WebModuleUnit1.pas
index 57edfc1..5e9c27e 100644 (file)
--- 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;