ポップアップ時の既存アンカー削除で1byte余分に削除していたのを修正

diff --git a/HTMLCreate.pas b/HTMLCreate.pas
index 41c45b7..8b9cfeb 100644 (file)
--- a/HTMLCreate.pas
+++ b/HTMLCreate.pas
@@ -1500,7 +1500,7 @@ begin
         idx := AnsiPos('</a>', s1);
         if idx <> 0 then begin
             Result := Result + Copy(s1, 1, idx - 1);
-            Delete(s1, 1, idx + 4);
+            Delete(s1, 1, idx + 3);
         end;
         idx := AnsiPos(mark, s1);
     end;