あぼーんの方の引数が変わったので変更

レスの中身が無いときにスペースを挿入するようにした

diff --git a/GikoSystem.pas b/GikoSystem.pas
index 1b9d5f3..e0bdbb7 100644 (file)
--- 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\83\8f\81[\83h\82ª\82ç\82Ý
+        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\82Ì\82R\82Â\82ÌBool\92l
+            //1-&rlo\82ª\82 \82Á\82½\82ç\8dí\8f\9c\82·\82é\81@2-<ul>\83^\83O\82ð<br>\83^\83O\82É\82·\82é\81@3-NG\83\8f\81[\83h\82É\82Ð\82Á\82©\82Á\82©\82à\82Ì\82Ì\82Ý\95\\8e¦\82·\82é
+            ReadList.AddStrings( FAbon.Execute(bufList,true,false,false) );
                        Res := DivideStrLine(ReadList[0]);
                        Res.FTitle := StringReplace(Res.FTitle, '\81\97\81M', ',', [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;