| 536 |
//IsLogFile用DATファイルリスト |
//IsLogFile用DATファイルリスト |
| 537 |
//GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.dat', FileList, False, False); |
//GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.dat', FileList, False, False); |
| 538 |
GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.dat', FileList, False); |
GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.dat', FileList, False); |
|
|
|
| 539 |
//前回異常終了時用Tmpファイルリスト |
//前回異常終了時用Tmpファイルリスト |
| 540 |
//GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, False, False); |
//GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, False, False); |
| 541 |
GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, False); |
GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, False); |
| 597 |
|
|
| 598 |
//前回異常終了時チェック |
//前回異常終了時チェック |
| 599 |
if TmpFileList.Count <> 0 then begin |
if TmpFileList.Count <> 0 then begin |
| 600 |
Index := TmpFileList.IndexOf(ChangeFileExt(ThreadItem.FileName, '.tmp')); |
if TmpFileList.Find(ChangeFileExt(ThreadItem.FileName, '.tmp'), Index) then begin |
|
//if TmpFileList.Find(ChangeFileExt(ThreadItem.FileName, '.tmp'), Index) then begin |
|
|
if Index <> -1 then begin |
|
| 601 |
ini := TMemIniFile.Create(ExtractFilePath(Board.GetFolderIndexFileName) + TmpFileList[Index]); |
ini := TMemIniFile.Create(ExtractFilePath(Board.GetFolderIndexFileName) + TmpFileList[Index]); |
| 602 |
try |
try |
| 603 |
//ThreadItem.RoundDate := ini.ReadDateTime('Setting', 'RoundDate', ZERO_DATE); |
//ThreadItem.RoundDate := ini.ReadDateTime('Setting', 'RoundDate', ZERO_DATE); |
| 761 |
// Values: array[Boolean] of string = ('0', '1'); |
// Values: array[Boolean] of string = ('0', '1'); |
| 762 |
var |
var |
| 763 |
i: integer; |
i: integer; |
| 764 |
Index: Integer; |
Index: Integer; |
| 765 |
tmpSize: Integer; |
tmpSize: Integer; |
| 766 |
FileName: string; |
FileName: string; |
| 767 |
sl: TStringList; |
sl: TStringList; |
| 768 |
s: string; |
s: string; |
| 769 |
TmpFileList: TStringList; |
TmpFileList: TStringList; |
| 770 |
ini : TMemIniFIle; |
ini : TMemIniFIle; |
| 771 |
begin |
begin |
| 772 |
if not Board.IsThreadDatRead then |
if not Board.IsThreadDatRead then |
| 773 |
Exit; |
Exit; |
| 775 |
ForceDirectoriesEx( ExtractFilePath( FileName ) ); |
ForceDirectoriesEx( ExtractFilePath( FileName ) ); |
| 776 |
|
|
| 777 |
sl := TStringList.Create; |
sl := TStringList.Create; |
| 778 |
TmpFileList := TStringList.Create; |
TmpFileList := TStringList.Create; |
| 779 |
|
TmpFileList.Sorted := true; |
| 780 |
try |
try |
| 781 |
//GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, False, true); |
//GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, False, true); |
| 782 |
GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, false); |
GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, false); |
|
|
|
| 783 |
sl.BeginUpdate; |
sl.BeginUpdate; |
| 784 |
sl.Add(FOLDER_INDEX_VERSION); |
sl.Add(FOLDER_INDEX_VERSION); |
| 785 |
for i := 0 to Board.Count - 1 do begin |
for i := 0 to Board.Count - 1 do begin |
| 786 |
if Board.Items[i].No = 0 then |
//if Board.Items[i].No = 0 then |
| 787 |
Board.Items[i].No := i + 1; |
// Board.Items[i].No := i + 1; |
| 788 |
|
Board.Items[i].No := i + 1; |
| 789 |
|
|
| 790 |
if TmpFileList.Count <> 0 then begin |
if TmpFileList.Count <> 0 then begin |
| 791 |
//if TmpFileList.Find(ChangeFileExt(Board.Items[i].FileName, '.tmp'), Index) then begin |
if TmpFileList.Find(ChangeFileExt(Board.Items[i].FileName, '.tmp'), Index) then begin |
| 792 |
Index := TmpFileList.IndexOf(ChangeFileExt(Board.Items[i].FileName, '.tmp')); |
ini := TMemIniFile.Create(ExtractFilePath(Board.GetFolderIndexFileName) + TmpFileList.Strings[Index]); |
|
if Index <> -1 then begin |
|
|
ini := TMemIniFile.Create(ChangeFileExt(Board.Items[Index].GetThreadFileName, '.tmp')); |
|
| 793 |
try |
try |
| 794 |
tmpSize := ini.ReadInteger('Setting', 'Size', 0); |
tmpSize := ini.ReadInteger('Setting', 'Size', 0); |
| 795 |
if Board.Items[i].Size < tmpSize then begin |
if Board.Items[i].Size < tmpSize then begin |