旧フォーマットRoundItemからの変換で，BBSIDを使って板を探すようにした。

板名が変わっていても探せるはず。

diff --git a/RoundData.pas b/RoundData.pas
index 981aad6..692f308 100644 (file)
--- a/RoundData.pas
+++ b/RoundData.pas
@@ -582,13 +582,12 @@ begin
                2:
                        begin
                        Result.FileName := s;
-                       board := BBSs[ 0 ].FindBoardFromTitle(Result.BoardTitle);
+                       board := BBSs[ 0 ].FindBBSID(bbsID);
                    if board <> nil then begin
-                           //BoardList.Add(board.URL);
                        buf := Copy(board.GetSendURL,1,LastDelimiter('/', board.GetSendURL)-1);
                                                Result.URL := buf + '/read.cgi/'+ board.BBSID+ '/' +ChangeFileExt(s,'') + '/l50';
                    end else begin
-                       raise Exception.Create('\82±\82Ì\8f\84\89ñ\82Í\93Ç\82Ý\8d\9e\82ß\82È\82¢\82æ\81i\91½\95ª\8aO\95\94\94Â\81j');
+                       raise Exception.Create('\82±\82Ì\8f\84\89ñ\82Í\93Ç\82Ý\8d\9e\82ß\82È\82¢\82æ');
                     end;
                    end;
                3: Result.ThreadTitle := s;