見落としていた箇所

起動の時にfdtable5の問題が出る

diff --git a/WebModuleUnit1.pas b/WebModuleUnit1.pas
index 047fe31..d1c90b6 100644 (file)
--- a/WebModuleUnit1.pas
+++ b/WebModuleUnit1.pas
@@ -639,14 +639,12 @@ begin
   index.Tag := i;
   tagstr := '/admin';
   Self.Tag := Integer(@tagstr);
-  i := footer.HTMLDoc.Add
-    ('<p style=text-align:center><a href="/index?db=<#dbnum>">\96ß\82é</a>');
   admin.header.Text := adhead.Content;
   admin.Footer.Clear;
   admin.Footer.Add('<input type=submit value=\8dí\8f\9c\82·\82é><input type=reset value=\83\8a\83Z\83b\83g></form>');
   admin.Footer.Add(footer.Content);
+  admin.Footer.Add('<p style=text-align:center><a href="/index?db=<#dbnum>">\96ß\82é</a>');
   admin.Tag := DataModule1.FDTable2.RecNo;
-  footer.HTMLDoc.Delete(i);
   Response.ContentType := 'text/html;charset=utf-8';
   Response.Content := admin.Content;
 end;