ようやく動かせそうになりました

diff --git a/WebModuleUnit1.pas b/WebModuleUnit1.pas
index 61d4bdf..52ce46c 100644 (file)
--- a/WebModuleUnit1.pas
+++ b/WebModuleUnit1.pas
@@ -83,7 +83,6 @@ type
   private
     { private \90é\8c¾ }
     ss: TStringList;
-    checkbox: Boolean;
     procedure pages(count: Integer; var page: Integer);
     function getdbname: string;
   public
@@ -195,7 +194,8 @@ begin
     s := TagParams.Values['param'];
     ReplaceText := TNetEncoding.URL.Decode(Request.CookieFields.Values[s]);
   end
-  else if (TagString = 'check') and (checkbox = true) then
+  else if (TagString = 'check') and
+    (Request.ContentFields.Values['show'] <> 'false') then
     ReplaceText := 'checked'
   else if TagString = 'preview' then
     ReplaceText := Request.ContentFields.Values['preview']
@@ -676,11 +676,11 @@ end;
 procedure TTWebModule1.TWebModule1registAction(Sender: TObject;
   Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
 var
-  number: Integer;
+  number, i: Integer;
   title, na, raw, pass, kotoba, error: string;
   p: PString;
   comment: TStringList;
-  i: Integer;
+  x: Boolean;
   function scan(Text: string): string;
   var
     reg: TRegEx;
@@ -722,7 +722,7 @@ begin
     pass := Values['password'];
   end;
   if title = '' then
-    title:='\83^\83C\83g\83\8b\82È\82µ.';
+    title := '\83^\83C\83g\83\8b\82È\82µ.';
   with Response.Cookies.Add do
   begin
     Name := 'name';
@@ -751,29 +751,29 @@ begin
       end;
       comment[i] := '<p>' + scan(comment[i]);
     end;
+    x := Request.ContentFields.Values['show'] = 'true';
     if error <> '' then
       error := error + '</section>'
-    else if Request.ContentFields.Values['show'] = 'true' then
+    else if x = true then
     begin
       error := '<p style=font-size:2.3em;color:blue>\81«\81«\83v\83\8c\83r\83\85\81[\81«\81«<p>' +
         comment.Text;
-      checkbox := false;
-      Request.ContentFields.Add('preview='+error);
-      Request.ContentFields.Add('raw='+raw);
+      Request.ContentFields.Delete(Request.ContentFields.IndexOfName('show'));
+      Request.ContentFields.Add('preview=' + error);
+      Request.ContentFields.Add('raw=' + raw);
     end
     else
     begin
       i := DataModule1.FDTable1.FieldByName('dbnum').AsInteger;
       DataModule1.FDTable2.AppendRecord([i, number, title, na, comment.Text,
         raw, Now, pass]);
-      checkbox := true;
       Response.SendRedirect('index?db=' + getdbname + '#article');
       Exit;
     end;
   finally
     comment.Free;
   end;
-  TWebModule1indexpageAction(nil,Request,Response,Handled);
+  TWebModule1indexpageAction(nil, Request, Response, Handled);
 end;
 
 procedure TTWebModule1.TWebModule1searchAction(Sender: TObject;
@@ -807,7 +807,6 @@ begin
     DataModule1.FDTable3.AppendRecord
       (['\82Æ\82é\82Ë\81`\82Ç\8d\86', '<p style=font-color:gray>\82Æ\82é\82Ë\81`\82Ç\8d\86</p>', false, a, 30]);
   end;
-  checkbox := true;
 end;
 
 end.