From 82096340c06ac3c1c85355e2b4ab521813f5dcb9 Mon Sep 17 00:00:00 2001 From: yamat0jp Date: Sun, 7 Jul 2019 21:21:24 +0900 Subject: [PATCH] =?utf8?q?master=20=E3=83=9A=E3=83=BC=E3=82=B8=E3=81=AE?= =?utf8?q?=E5=8A=A0=E5=B7=A5?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- WebModuleUnit1.dfm | 7 +++++-- WebModuleUnit1.pas | 33 +++++++++++++++++++++++++++++++-- 2 files changed, 36 insertions(+), 4 deletions(-) diff --git a/WebModuleUnit1.dfm b/WebModuleUnit1.dfm index e7ddf29..945f8f0 100644 --- a/WebModuleUnit1.dfm +++ b/WebModuleUnit1.dfm @@ -37,7 +37,6 @@ object TWebModule1: TTWebModule1 OnAction = TWebModule1helpAction end item - MethodType = mtGet Name = 'master' PathInfo = '/master' OnAction = TWebModule1masterAction @@ -385,8 +384,12 @@ object TWebModule1: TTWebModule1 '' '' '' - '' + '
' '

<#request>' + ''#21066#38500#28168#12415#12434#28040#21435#12288 + ''#12377#12409#12390#28040#21435 + '' + '

' '

'#25147#12427'' '') OnHTMLTag = masterHTMLTag diff --git a/WebModuleUnit1.pas b/WebModuleUnit1.pas index 52ce46c..e9009ab 100644 --- a/WebModuleUnit1.pas +++ b/WebModuleUnit1.pas @@ -297,7 +297,7 @@ begin with DataModule1.FDTable4 do begin First; - ReplaceText := ''; + ReplaceText := '
'; while Eof = false do begin ReplaceText := ReplaceText + alert.Content; @@ -668,7 +668,36 @@ end; procedure TTWebModule1.TWebModule1masterAction(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); +var + s: string; + i: Integer; begin + if Request.MethodType = mtPost then + begin + s := Request.ContentFields.Values['delete']; + if s = 'all' then + with DataModule1.FDTable4 do + while (Bof = false) or (Eof = false) do + Delete + else + begin + DataModule1.FDTable4.First; + while DataModule1.FDTable4.Eof = false do + begin + i := DataModule1.FDTable4.FieldByName('dbname').AsInteger; + if DataModule1.FDTable1.Locate('dbnum', i) = true then + begin + i := DataModule1.FDTable4.FieldByName('posnum').AsInteger; + if DataModule1.FDTable2.Locate('number', i) = false then + begin + DataModule1.FDTable4.Delete; + continue; + end; + end; + DataModule1.FDTable4.Next; + end; + end; + end; Response.ContentType := 'text/html;charset=utf-8'; Response.Content := master.Content; end; @@ -758,7 +787,7 @@ begin begin error := '

««ƒvƒŒƒrƒ…[««

' + comment.Text; - Request.ContentFields.Delete(Request.ContentFields.IndexOfName('show')); + Request.ContentFields.Values['show'] := 'false'; Request.ContentFields.Add('preview=' + error); Request.ContentFields.Add('raw=' + raw); end -- 2.11.0