Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/BoardGroup.pas

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

revision 1.39 by h677, Tue Mar 16 15:37:55 2004 UTC revision 1.40 by yoffy, Thu Apr 8 11:10:11 2004 UTC
# Line 990  begin Line 990  begin
990                  FileName := ExtractFilePath( FilePath ) + FOLDER_INI_FILENAME                  FileName := ExtractFilePath( FilePath ) + FOLDER_INI_FILENAME
991          else          else
992                  FileName := IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder )                  FileName := IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder )
993                                                          + BBS2CH_LOG_FOLDER + BBSID + PATH_DELIM + FOLDER_INI_FILENAME;                                                          + BBS2CH_LOG_FOLDER + PATH_DELIM + BBSID + PATH_DELIM + FOLDER_INI_FILENAME;
994    
995          if not FileExists(FileName) then          if not FileExists(FileName) then
996                  Exit;                  Exit;
# Line 1048  begin Line 1048  begin
1048                  FileName := ExtractFilePath( FilePath )                  FileName := ExtractFilePath( FilePath )
1049          else          else
1050                  FileName := IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder )                  FileName := IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder )
1051                                                          + BBS2CH_LOG_FOLDER + BBSID + PATH_DELIM;                                                          + BBS2CH_LOG_FOLDER + PATH_DELIM + BBSID + PATH_DELIM;
1052          if not GikoSys.DirectoryExistsEx(FileName) then          if not GikoSys.DirectoryExistsEx(FileName) then
1053                  GikoSys.ForceDirectoriesEx(FileName);                  GikoSys.ForceDirectoriesEx(FileName);
1054          FileName := FileName + FOLDER_INI_FILENAME;          FileName := FileName + FOLDER_INI_FILENAME;
# Line 1146  begin Line 1146  begin
1146                  Result := FilePath                  Result := FilePath
1147          else          else
1148                  Result := IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder )                  Result := IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder )
1149                                                  + BBS2CH_LOG_FOLDER + BBSID + PATH_DELIM + SUBJECT_FILENAME;                                                  + BBS2CH_LOG_FOLDER + PATH_DELIM + BBSID + PATH_DELIM + SUBJECT_FILENAME;
1150  end;  end;
1151    
1152  // インデックスファイル名(folder.idx)取得(パス+ファイル名)  // インデックスファイル名(folder.idx)取得(パス+ファイル名)
# Line 1156  begin Line 1156  begin
1156                  Result := ExtractFilePath( FilePath ) + FOLDER_INDEX_FILENAME                  Result := ExtractFilePath( FilePath ) + FOLDER_INDEX_FILENAME
1157          else          else
1158                  Result := IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder )                  Result := IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder )
1159                                                  + BBS2CH_LOG_FOLDER + BBSID + PATH_DELIM + FOLDER_INDEX_FILENAME;                                                  + BBS2CH_LOG_FOLDER + PATH_DELIM + BBSID + PATH_DELIM + FOLDER_INDEX_FILENAME;
1160  end;  end;
1161    
1162  // スレ立て送信URL  // スレ立て送信URL
# Line 1666  begin Line 1666  begin
1666                  Result := FilePath                  Result := FilePath
1667          else          else
1668                  Result := IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder )                  Result := IncludeTrailingPathDelimiter( GikoSys.Setting.LogFolder )
1669                                                  + BBS2CH_LOG_FOLDER + ParentBoard.BBSID + PATH_DELIM + FileName;                                                  + BBS2CH_LOG_FOLDER + PATH_DELIM + ParentBoard.BBSID + PATH_DELIM + FileName;
1670  end;  end;
1671    
1672  procedure TThreadItem.SetLastModified(d: TDateTime);  procedure TThreadItem.SetLastModified(d: TDateTime);

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

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