| 329 |
var |
var |
| 330 |
i: Integer; |
i: Integer; |
| 331 |
sl: TStringList; |
sl: TStringList; |
| 332 |
FileName: string; |
FileName, bFileName: string; |
| 333 |
errorSl: TStringList; |
errorSl: TStringList; |
| 334 |
errorFileName: string; |
errorFileName: string; |
| 335 |
Item: TRoundItem; |
Item: TRoundItem; |
| 336 |
delCount: Integer; |
delCount: Integer; |
| 337 |
begin |
begin |
| 338 |
sl := TStringList.Create; |
sl := TStringList.Create; |
| 339 |
errorSl := TStringList.Create; |
errorSl := TStringList.Create; |
| 340 |
errorSl.Duplicates := dupIgnore; |
errorSl.Duplicates := dupIgnore; |
| 341 |
try |
try |
| 342 |
//ボード巡回ファイル読み込み |
//ボード巡回ファイル読み込み |
| 343 |
FileName := GikoSys.GetConfigDir + ROUND_BOARD_FILENAME; |
FileName := GikoSys.GetConfigDir + ROUND_BOARD_FILENAME; |
| 344 |
//エラー行保存ファイル読み込み |
bFileName := GikoSys.GetConfigDir + '~' + ROUND_BOARD_FILENAME; |
| 345 |
errorFileName := GikoSys.GetConfigDir + ERROR_BOARD_FILENAME; |
//エラー行保存ファイル読み込み |
| 346 |
|
errorFileName := GikoSys.GetConfigDir + ERROR_BOARD_FILENAME; |
| 347 |
|
|
| 348 |
if FileExists(FileName) then begin |
if FileExists(FileName) then begin |
| 349 |
sl.LoadFromFile(FileName); |
sl.LoadFromFile(FileName); |
| 350 |
if FileExists(errorFileName) then begin |
if FileExists(bFileName) then |
| 351 |
try |
DeleteFile(bFileName); |
| 352 |
|
//バックアップ用のファイルを作成する |
| 353 |
|
sl.SaveToFile(bFileName); |
| 354 |
|
if FileExists(errorFileName) then begin |
| 355 |
|
try |
| 356 |
errorSl.LoadFromFile(errorFileName); |
errorSl.LoadFromFile(errorFileName); |
| 357 |
except |
except |
| 358 |
end; |
end; |
| 401 |
i: Integer; |
i: Integer; |
| 402 |
// j: Integer; |
// j: Integer; |
| 403 |
sl: TStringList; |
sl: TStringList; |
| 404 |
FileName: string; |
FileName, bFileName: string; |
| 405 |
errorSl: TStringList; |
errorSl: TStringList; |
| 406 |
errorFileName: string; |
errorFileName: string; |
| 407 |
Item: TRoundItem; |
Item: TRoundItem; |
| 416 |
try |
try |
| 417 |
//スレ巡回ファイル読み込み |
//スレ巡回ファイル読み込み |
| 418 |
FileName := GikoSys.GetConfigDir + ROUND_ITEM_FILENAME; |
FileName := GikoSys.GetConfigDir + ROUND_ITEM_FILENAME; |
| 419 |
//エラー行保存ファイル読み込み |
bFileName := GikoSys.GetConfigDir + '~' + ROUND_ITEM_FILENAME; |
| 420 |
|
//エラー行保存ファイル読み込み |
| 421 |
errorFileName := GikoSys.GetConfigDir + ERROR_ITEM_FILENAME; |
errorFileName := GikoSys.GetConfigDir + ERROR_ITEM_FILENAME; |
| 422 |
if FileExists(FileName) then begin |
if FileExists(FileName) then begin |
| 423 |
sl.LoadFromFile(FileName); |
sl.LoadFromFile(FileName); |
| 424 |
if FileExists(errorFileName) then begin |
if FileExists(bFileName) then |
| 425 |
|
DeleteFile(bFileName); |
| 426 |
|
sl.SaveToFile(bFileName); |
| 427 |
|
if FileExists(errorFileName) then begin |
| 428 |
try |
try |
| 429 |
errorSl.LoadFromFile(errorFileName); |
errorSl.LoadFromFile(errorFileName); |
| 430 |
except |
except |