From ef8704f4d39b04a4d12cc9c9970b2a6cd8ecdd6b Mon Sep 17 00:00:00 2001
From: h677 <h677>
Date: Tue, 12 Aug 2003 14:15:18 +0000
Subject: [PATCH] =?utf8?q?=E3=81=82=E3=81=BC=E3=83=BC=E3=82=93=E3=81=AE?=
 =?utf8?q?=E6=96=B9=E3=81=AE=E5=BC=95=E6=95=B0=E3=81=8C=E5=A4=89=E3=82=8F?=
 =?utf8?q?=E3=81=A3=E3=81=9F=E3=81=AE=E3=81=A7=E5=A4=89=E6=9B=B4=20?=
 =?utf8?q?=E3=83=AC=E3=82=B9=E3=81=AE=E4=B8=AD=E8=BA=AB=E3=81=8C=E7=84=A1?=
 =?utf8?q?=E3=81=84=E3=81=A8=E3=81=8D=E3=81=AB=E3=82=B9=E3=83=9A=E3=83=BC?=
 =?utf8?q?=E3=82=B9=E3=82=92=E6=8C=BF=E5=85=A5=E3=81=99=E3=82=8B=E3=82=88?=
 =?utf8?q?=E3=81=86=E3=81=AB=E3=81=97=E3=81=9F?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 GikoSystem.pas | 25 +++++++++++++++++++++++--
 1 file changed, 23 insertions(+), 2 deletions(-)

diff --git a/GikoSystem.pas b/GikoSystem.pas
index 1b9d5f3..e0bdbb7 100644
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -184,6 +184,10 @@ type
 		function Parse2chURL2(URL: string): TPathRec;
 		procedure ParseURI(var URL, Protocol, Host, Path, Document, Port, Bookmark: string);
 		function GetVersionBuild: Integer;
+
+        //NGƒ[ƒh‚ª‚ç‚Ý
+        function ReloadNGwordFile() : Boolean;
+        procedure OpenNGwordFile();
 	end;
 
 var
@@ -917,7 +921,9 @@ begin
 	try
 		if ThreadItem.IsLogFile then begin
             bufList.LoadFromFile(FileName);
-            ReadList.AddStrings( FAbon.Execute(bufList,false) );
+            //Execute‚Ì‚R‚‚ÌBool’l
+            //1-&rlo‚ª‚ ‚Á‚½‚çíœ‚·‚é@2-<ul>ƒ^ƒO‚ð<br>ƒ^ƒO‚É‚·‚é@3-NGƒ[ƒh‚ɂЂÁ‚©‚Á‚©‚à‚Ì‚Ì‚Ý•\Ž¦‚·‚é
+            ReadList.AddStrings( FAbon.Execute(bufList,true,false,false) );
 			Res := DivideStrLine(ReadList[0]);
 			Res.FTitle := StringReplace(Res.FTitle, '—M', ',', [rfReplaceAll]);
 			sTitle := Res.FTitle;
@@ -1219,6 +1225,7 @@ end;
 function TGikoSys.DivideStrLine(Line: string): TResRec;
 var
 	Delim: string;
+    bufbody : String;
 begin
 	if Pos('<>', Line) = 0 then begin
 		Delim := ',';
@@ -1230,7 +1237,11 @@ begin
 	Result.FName := Trim(GetTokenIndex(Line, Delim, 0));
 	Result.FMailTo := Trim(GetTokenIndex(Line, Delim, 1));
 	Result.FDateTime := Trim(GetTokenIndex(Line, Delim, 2));
-	Result.FBody := Trim(GetTokenIndex(Line, Delim, 3));
+    bufBody := Trim(GetTokenIndex(Line, Delim, 3));
+    if (AnsiPos('<br> ',bufbody) = 1) or (bufbody = '') then begin
+        Insert('&nbsp;',bufbody, 1);
+    end;
+    Result.FBody := bufBody;
 	Result.FTitle := Trim(GetTokenIndex(Line, Delim, 4));
 
 end;
@@ -2555,6 +2566,16 @@ begin
 		FreeMem(pVersionInfo, VersionSize);
 	end;
 end;
+function TGikoSys.ReloadNGwordFile() : Boolean;
+begin
+    Result := FAbon.ReLoadFromNGwordFile;
+end;
+procedure TGikoSys.OpenNGwordFile();
+begin
+    FAbon.EditNGwords;
+end;
+
+
 
 initialization
 	GikoSys := TGikoSys.Create;
-- 
2.11.0