From: h677 <h677>
Date: Mon, 5 Oct 2009 14:23:13 +0000 (+0000)
Subject: refs #17840
X-Git-Tag: v1_64_1_820~43
X-Git-Url: http://git.osdn.net/view?p=gikonavigoeson%2Fgikonavi.git;a=commitdiff_plain;h=d93afde0cafc20159e7c9dea0c31547671e2c17c

refs #17840
HTML化した際に、レスアンカーのタグ内で、ダブルクォートが２つつながる不具合の修正
---

diff --git a/HTMLCreate.pas b/HTMLCreate.pas
index 6cb422b..ce950e1 100644
--- a/HTMLCreate.pas
+++ b/HTMLCreate.pas
@@ -600,6 +600,7 @@ const
 	_END: string = '&END=';
 var
 	i, j, k: Integer;
+    hpos, qpos : Integer;
 	tmp: string;
 	res: string;
 begin
@@ -627,10 +628,21 @@ begin
 		end else begin
 			k := LastDelimiter('/', tmp);
 			Delete(tmp, 1, k);
-			if AnsiPos('-', tmp) < AnsiPos('"', tmp) then
-				Delete(tmp, AnsiPos('-', tmp), Length(tmp))
-			else
-				Delete(tmp, AnsiPos('"', tmp), Length(tmp));
+            hpos := AnsiPos('-', tmp);
+            qpos := AnsiPos('"', tmp);
+            if ( (hpos > 0) and (qpos > 0) ) then begin
+                if ( qpos < hpos ) then begin
+                    Delete(tmp, qpos, Length(tmp));
+                end else begin
+                    Delete(tmp, hpos, Length(tmp));
+                end;
+            end else begin
+                if ( qpos > 0 ) then begin
+                    Delete(tmp, qpos, Length(tmp));
+                end else if ( qpos > 0 ) then begin
+                    Delete(tmp, hpos, Length(tmp));
+                end;
+            end;
 
 			PRes.FBody := PRes.FBody + '<a href="#' + tmp + '">';
 		end;