| 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 |
| 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 |