複数のAタグが含まれるときに最後のAタグから後ろのみにする不具合の修正

diff --git a/HTMLCreate.pas b/HTMLCreate.pas
index 8b9cfeb..4a284f1 100644 (file)
--- a/HTMLCreate.pas
+++ b/HTMLCreate.pas
@@ -1489,7 +1489,7 @@ begin
     s1 := s;
     idx := AnsiPos(mark, s1);
     while idx <> 0 do begin
-        Result := Copy(s1, 1, idx - 1);
+        Result := Result + Copy(s1, 1, idx - 1);
         Delete(s1, 1, idx);
         // \83^\83O\82Ì\83G\83\93\83h\82ð\92T\82·
         idx := AnsiPos('">', s1);