| 740 |
// Values: array[Boolean] of string = ('0', '1'); |
// Values: array[Boolean] of string = ('0', '1'); |
| 741 |
var |
var |
| 742 |
i: integer; |
i: integer; |
| 743 |
|
baseup: Integer; |
| 744 |
FileName: string; |
FileName: string; |
| 745 |
sl: TStringList; |
sl: TStringList; |
| 746 |
s: string; |
s: string; |
| 747 |
TmpFileList: TStringList; |
TmpFileList: TStringList; |
| 748 |
|
TmpThreadItem: TThreadItem; |
| 749 |
begin |
begin |
| 750 |
if not Board.IsThreadDatRead then |
if not Board.IsThreadDatRead then |
| 751 |
Exit; |
Exit; |
| 757 |
TmpFileList.Sorted := true; |
TmpFileList.Sorted := true; |
| 758 |
try |
try |
| 759 |
GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, false); |
GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, false); |
| 760 |
|
baseup := 0; |
| 761 |
|
for i := 0 to Board.Count - 1 do begin |
| 762 |
|
if Board.Items[i].No = 0 then Inc(baseup); |
| 763 |
|
end; |
| 764 |
|
for i := 0 to Board.Count - 1 do begin |
| 765 |
|
Board.Items[i].No := Board.Items[i].No + baseup |
| 766 |
|
end; |
| 767 |
|
for i := 0 to Board.Count - 1 do begin |
| 768 |
|
if i <> Board.Items[i].No - 1 then begin |
| 769 |
|
TmpThreadItem := Board.Items[Board.Items[i].No - 1]; |
| 770 |
|
Board.Items[Board.Items[i].No - 1] := Board.Items[i]; |
| 771 |
|
Board.Items[i] := TmpThreadItem; |
| 772 |
|
end; |
| 773 |
|
end; |
| 774 |
sl.BeginUpdate; |
sl.BeginUpdate; |
| 775 |
sl.Add(FOLDER_INDEX_VERSION); |
sl.Add(FOLDER_INDEX_VERSION); |
| 776 |
for i := 0 to Board.Count - 1 do begin |
for i := 0 to Board.Count - 1 do begin |