From: yoffy <yoffy>
Date: Sun, 16 Nov 2003 16:34:45 +0000 (+0000)
Subject: ・custom.2ch の後継として、config\Board フォルダにあるファイルを全て外部板として扱うようになった。
X-Git-Tag: v1_64_1_820~1697
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=f1e13ee69dccb60a92a1a5b4c84f1236b81c23fb;p=gikonavigoeson%2Fgikonavi.git

・custom.2ch の後継として、config\Board フォルダにあるファイルを全て外部板として扱うようになった。
　※custom.2ch も今のところ互換性のため残されている。
---

diff --git a/BoardGroup.pas b/BoardGroup.pas
index a8c9338..9ead564 100644
--- a/BoardGroup.pas
+++ b/BoardGroup.pas
@@ -517,16 +517,26 @@ var
 	RoundItem: TRoundItem;
 	BBSList: TStringList;
 	CustomList: TStringList;
+  BoardFileList: TStringList;
 begin
 	ini := TMemIniFile.Create('');
 	BBSList := TStringList.Create;
 	CustomList := TStringList.Create;
+	BoardFileList := TStringList.Create;
 	try
 		if FileExists(GikoSys.GetBoardFileName) then
 			BBSList.LoadFromFile(GikoSys.GetBoardFileName);
 		if FileExists(GikoSys.GetCustomBoardFileName) then
 			CustomList.LoadFromFile(GikoSys.GetCustomBoardFileName);
 		BBSList.AddStrings(CustomList);
+		if DirectoryExists(GikoSys.Setting.GetBoardDir) then begin
+			GikoSys.GetFileList( GikoSys.Setting.GetBoardDir, '*', BoardFileList, True, True );
+			for i := BoardFileList.Count - 1 downto 0 do begin
+				CustomList.Clear;
+				CustomList.LoadFromFile( BoardFileList[ i ] );
+				BBSList.AddStrings( CustomList );
+			end;
+		end;
 		ini.SetStrings(BBSList);
 
 		CategoryList := TStringList.Create;
@@ -588,6 +598,7 @@ begin
 	finally
 		BBSList.Free;
 		CustomList.Free;
+		BoardFileList.Free;
 		ini.Free;
 	end;
 end;