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.97 by h677, Sun Nov 13 11:20:23 2005 UTC revision 1.98 by h677, Sun Nov 13 15:33:15 2005 UTC
# Line 1983  var Line 1983  var
1983  begin  begin
1984          ini := TMemIniFile.Create(GetBoardURLFileName());          ini := TMemIniFile.Create(GetBoardURLFileName());
1985          try          try
1986                  ini.WriteInteger('URL','count',2);                  //更新URLの数
1987                  ini.WriteInteger('URL','selected',2);                  ini.WriteInteger('URL','count',1);
1988                    //デフォルトで使用するURLのインデックス
1989                    ini.WriteInteger('URL','selected',1);
1990                    //以下必要な数だけ、更新URLを追加
1991                  ini.WriteString('URL','1',DEFAULT_2CH_BOARD_URL1);                  ini.WriteString('URL','1',DEFAULT_2CH_BOARD_URL1);
1992                  //ini.WriteString('URL','2',DEFAULT_2CH_BOARD_URL2);                  //ini.WriteString('URL','2',DEFAULT_2CH_BOARD_URL2);
1993                  ini.UpdateFile;                  ini.UpdateFile;

Legend:
Removed from v.1.97  
changed lines
  Added in v.1.98

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