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.65 by yoffy, Wed Sep 8 08:10:05 2004 UTC revision 1.66 by yoffy, Thu Sep 9 03:18:20 2004 UTC
# Line 1323  var Line 1323  var
1323          i: Integer;          i: Integer;
1324          ini: TMemIniFile;          ini: TMemIniFile;
1325          CoolSet: TCoolSet;          CoolSet: TCoolSet;
1326            wkList  : TStringList;
1327  begin  begin
1328          ini := TMemIniFile.Create(GetFileName());          ini := TMemIniFile.Create(GetFileName());
1329          try          try
# Line 1479  begin Line 1480  begin
1480                          ini.WriteInteger('BoardColumnWidth', 'ID' + IntToStr(i), FBoardColumnWidth[i]);                          ini.WriteInteger('BoardColumnWidth', 'ID' + IntToStr(i), FBoardColumnWidth[i]);
1481                  end;                  end;
1482    
1483                  // カテゴリリスト順序                  wkList := TStringList.Create;
1484                  for i := 0 to FBBSColumnOrder.Count - 1 do                  try
1485                          ini.WriteInteger( 'BBSColumnOrder', 'ID' + IntToStr( i ), Ord( FBBSColumnOrder[ i ] ) );                          // カテゴリリスト順序
1486                            ini.ReadSection( 'BBSColumnOrder', wkList );
1487                  // 板リスト順序                          for i := wkList.Count - 1 downto 0 do
1488                  for i := 0 to FCategoryColumnOrder.Count - 1 do                                  ini.DeleteKey( 'BBSColumnOrder', wkList[ i ] );
1489                          ini.WriteInteger( 'CategoryColumnOrder', 'ID' + IntToStr( i ), Ord( FCategoryColumnOrder[ i ] ) );                          for i := 0 to FBBSColumnOrder.Count - 1 do
1490                                    ini.WriteInteger( 'BBSColumnOrder', 'ID' + IntToStr( i ), Ord( FBBSColumnOrder[ i ] ) );
1491                  // スレリスト順序  
1492                  for i := 0 to FBoardColumnOrder.Count - 1 do                          // 板リスト順序
1493                          ini.WriteInteger( 'BoardColumnOrder', 'ID' + IntToStr( i ), Ord( FBoardColumnOrder[ i ] ) );                          ini.ReadSection( 'CategoryColumnOrder', wkList );
1494                            for i := wkList.Count - 1 downto 0 do
1495                                    ini.DeleteKey( 'CategoryColumnOrder', wkList[ i ] );
1496                            for i := 0 to FCategoryColumnOrder.Count - 1 do
1497                                    ini.WriteInteger( 'CategoryColumnOrder', 'ID' + IntToStr( i ), Ord( FCategoryColumnOrder[ i ] ) );
1498    
1499                            // スレリスト順序
1500                            ini.ReadSection( 'BoardColumnOrder', wkList );
1501                            for i := wkList.Count - 1 downto 0 do
1502                                    ini.DeleteKey( 'BoardColumnOrder', wkList[ i ] );
1503                            for i := 0 to FBoardColumnOrder.Count - 1 do
1504                                    ini.WriteInteger( 'BoardColumnOrder', 'ID' + IntToStr( i ), Ord( FBoardColumnOrder[ i ] ) );
1505                    finally
1506                            wkList.Free;
1507                    end;
1508    
1509                  //サウンド                  //サウンド
1510                  for i := 0 to GetSoundCount - 1 do begin                  for i := 0 to GetSoundCount - 1 do begin

Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66

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