Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Setting.pas

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

revision 1.17 by yoffy, Thu Nov 6 07:53:08 2003 UTC revision 1.18 by yoffy, Sun Nov 16 16:33:31 2003 UTC
# Line 13  const Line 13  const
13    
14          BOARD_FILE_NAME                                                         = 'board.2ch';          BOARD_FILE_NAME                                                         = 'board.2ch';
15          CUSTOMBOARD_FILE_NAME                                   = 'custom.2ch';          CUSTOMBOARD_FILE_NAME                                   = 'custom.2ch';
16            BOARD_DIR_NAME                                                          = 'Board';
17          KEY_SETTING_FILE_NAME                                   = 'key.ini';          KEY_SETTING_FILE_NAME                                   = 'key.ini';
18          TEMP_FOLDER                                                                             = 'Temp';          TEMP_FOLDER                                                                             = 'Temp';
19          OUTBOX_FILE_NAME                                                        = 'outbox.ini';          OUTBOX_FILE_NAME                                                        = 'outbox.ini';
# Line 316  type Line 317  type
317    
318                  function GetBoardFileName: string;                  function GetBoardFileName: string;
319                  function GetCustomBoardFileName: string;                  function GetCustomBoardFileName: string;
320                    function GetBoardDir: string;
321                  function GetHtmlTempFileName: string;                  function GetHtmlTempFileName: string;
322                  function GetAppDir: string;                  function GetAppDir: string;
323                  function GetTempFolder: string;                  function GetTempFolder: string;
# Line 1433  begin Line 1435  begin
1435  end;  end;
1436    
1437  (*************************************************************************  (*************************************************************************
1438     *ボードディレクトリ取得
1439     *************************************************************************)
1440    function TSetting.GetBoardDir: string;
1441    begin
1442            Result := GetAppDir + CONFIG_DIR_NAME + '\' + BOARD_DIR_NAME + '\';
1443    end;
1444    
1445    (*************************************************************************
1446   *テンポラリフォルダー名取得   *テンポラリフォルダー名取得
1447   *************************************************************************)   *************************************************************************)
1448  function TSetting.GetHtmlTempFileName: string;  function TSetting.GetHtmlTempFileName: string;

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

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