X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=WebModuleUnit1.pas;h=5e9c27eda9ea8b64323ca7964e8493f9643d9feb;hb=65aaece0d903a9ef99b4c798b511d2e21e0a73ea;hp=57edfc14f7c9d52877b4587562dbdb80c0e25d3b;hpb=8b2859eec71b7df8fa08ff61c2257aab17ff8936;p=newbbs%2Fnewbbs.git

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;