前回のコミット Component.Tag の扱いに問題。Disposeの個所をエラーに対し安全策。

今回、iとjのまちがい

diff --git a/WebModuleUnit1.pas b/WebModuleUnit1.pas
index 576b25b..8a920e3 100644 (file)
--- a/WebModuleUnit1.pas
+++ b/WebModuleUnit1.pas
@@ -681,7 +681,7 @@ var
     coll := reg.Matches(Text);
     for j := coll.count - 1 downto 0 do
     begin
-      Delete(Text, coll[i].index, coll[i].Length);
+      Delete(Text, coll[j].index, coll[j].Length);
       t := Copy(coll[j].Value, Length(s) + 1, coll[j].Length);
       result := Format
         ('<a class=minpreview data-preview-url=/link?num=%s href=/jump?num=%s>>>%s</a>',