Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/RoundData.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.9 by h677, Fri Dec 12 10:20:59 2003 UTC revision 1.10 by h677, Sat Dec 13 09:40:54 2003 UTC
# Line 582  begin Line 582  begin
582                  2:                  2:
583                          begin                          begin
584                          Result.FileName := s;                          Result.FileName := s;
585                          board := BBSs[ 0 ].FindBoardFromTitle(Result.BoardTitle);                          board := BBSs[ 0 ].FindBBSID(bbsID);
586                      if board <> nil then begin                      if board <> nil then begin
                             //BoardList.Add(board.URL);  
587                          buf := Copy(board.GetSendURL,1,LastDelimiter('/', board.GetSendURL)-1);                          buf := Copy(board.GetSendURL,1,LastDelimiter('/', board.GetSendURL)-1);
588                                                  Result.URL := buf + '/read.cgi/'+ board.BBSID+ '/' +ChangeFileExt(s,'') + '/l50';                                                  Result.URL := buf + '/read.cgi/'+ board.BBSID+ '/' +ChangeFileExt(s,'') + '/l50';
589                      end else begin                      end else begin
590                          raise Exception.Create('この巡回は読み込めないよ(多分外部板)');                          raise Exception.Create('この巡回は読み込めないよ');
591                      end;                      end;
592                      end;                      end;
593                  3: Result.ThreadTitle := s;                  3: Result.ThreadTitle := s;

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26