From 086d07e6f4496a82714acdbf18df72a575dc3fd3 Mon Sep 17 00:00:00 2001
From: h677 <h677>
Date: Wed, 13 Aug 2003 05:10:13 +0000
Subject: [PATCH] =?utf8?q?GikoSys=E3=81=AEFAbon=E3=82=92public=E3=81=AB?=
 =?utf8?q?=E5=A4=89=E6=9B=B4=E3=81=97=E3=81=9F=E3=81=AE=E3=81=A7=E3=80=81A?=
 =?utf8?q?bonizer=E3=82=92=E5=89=8A=E9=99=A4?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Giko.pas | 17 +++++------------
 1 file changed, 5 insertions(+), 12 deletions(-)

diff --git a/Giko.pas b/Giko.pas
index 8589143..946ebed 100644
--- a/Giko.pas
+++ b/Giko.pas
@@ -18,8 +18,7 @@ uses
 	GikoSystem, GikoUtil, Setting, BoardGroup, ThreadControl, ItemDownload,
 	Editor, RoundData, RoundName, KeySetting, GikoPanel, Favorite, FavoriteAdd,
 	FavoriteArrange, AddressHistory, Preview, HTMLDocumentEvent, Kotehan,
-	HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil,
-        AbonUnit;
+	HintWindow, GikoCoolBar, GikoListView, ToolBarSetting, ToolBarUtil;
 
 type
 	TGikoTreeType = (gttNone, gtt2ch, gttHistory);
@@ -5908,7 +5907,7 @@ var
 	Header: string;
 	Body: string;
 
-        Abonizer : TAbon;
+        //Abonizer : TAbon;
 begin
 	try
 		if StNum > ToNum then begin
@@ -5934,16 +5933,12 @@ begin
 				end;
 			end;
 
-                        Abonizer := TAbon.Create;
-                        Abonizer.Setroot( GikoSys.GetAppDir );
-                        Abonizer.SetNGwordpath( 'NGword.txt' );
-
 			for i := StNum to ToNum do begin
 				Line := i;
 				FileName := IncludeTrailingPathDelimiter(BBS2ch.GetLogFolder + sBoard) + sThread + '.dat';
 				tmp := GikoSys.ReadThreadFile(FileName, Line);
 
-				if (tmp <> '') And (Not Abonizer.FindNGwords( tmp )) then begin
+				if (tmp <> '') And ( not GikoSys.FAbon.CheckAbonPopupRes(tmp)) then begin
 					Res := GikoSys.DivideStrLine(tmp);
 
 					Header := IntToStr(Line) + ' –¼‘OF ' + Res.FName + ' “Še“úF ' + Res.FDateTime;
@@ -5961,8 +5956,6 @@ begin
 //							s := StringReplace(s, '—M', ',', [rfReplaceAll]);
 				end;
 			end;
-
-                        Abonizer.Destroy;
 		end;
 	finally
 	end;
@@ -6600,13 +6593,13 @@ end;
 //NGƒ[ƒhƒtƒ@ƒCƒ‹‚ð•ÒW‚·‚邽‚ß‚ÉŠJ‚­
 procedure TGikoForm.NG1Click(Sender: TObject);
 begin
-    GikoSys.OpenNGwordFile;
+    GikoSys.FAbon.EditNGwords;
 end;
 //NGƒ[ƒhƒtƒ@ƒCƒ‹‚ðÄ“ǂݍž‚Ý‚·‚é
 procedure TGikoForm.NG2Click(Sender: TObject);
 
 begin
-    if GikoSys.ReloadNGwordFile =false then begin
+    if GikoSys.FAbon.ReLoadFromNGwordFile =false then begin
 		MsgBox(Handle, 'NGƒ[ƒhƒtƒ@ƒCƒ‹‚̍ēǂݍž‚Ý‚ÉŽ¸”s‚µ‚Ü‚µ‚½', 'ƒGƒ‰[', MB_OK or MB_ICONEXCLAMATION);
     end else begin
         //‚±‚±‚ÅŒ»Ý•\Ž¦‚³‚ê‚Ä‚¢‚éƒXƒŒƒbƒh‚̍ĕ`‰æ‚ðŒÄ‚яo‚µ‚½‚¢‚ª‚â‚è•û•ª‚©‚炸¥¥¥B
-- 
2.11.0