OSDN Git Service
(root)
/
newbbs
/
newbbs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8b2859e
)
master にまだ修正が必要でした
author
yamat0jp
<terukohietori@gmail.com>
Mon, 20 Jan 2020 08:12:10 +0000
(17:12 +0900)
committer
yamat0jp
<terukohietori@gmail.com>
Mon, 20 Jan 2020 08:12:10 +0000
(17:12 +0900)
WebModuleUnit1.pas
patch
|
blob
|
history
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;