| 2299 |
if (Item.ThreadItem.ParentBoard.IsBoardPlugInAvailable) and (Item.ThreadItem.Title = '') then begin |
if (Item.ThreadItem.ParentBoard.IsBoardPlugInAvailable) and (Item.ThreadItem.Title = '') then begin |
| 2300 |
//boardPlugIn := Item.ThreadItem.BoardPlugIn; |
//boardPlugIn := Item.ThreadItem.BoardPlugIn; |
| 2301 |
boardPlugIn := Item.ThreadItem.ParentBoard.BoardPlugIn; |
boardPlugIn := Item.ThreadItem.ParentBoard.BoardPlugIn; |
| 2302 |
DivideStrLine(boardPlugIn.GetDat( DWORD( Item.ThreadItem ), 1 ), @Res); |
THTMLCreate.DivideStrLine(boardPlugIn.GetDat( DWORD( Item.ThreadItem ), 1 ), @Res); |
| 2303 |
Item.ThreadItem.Title := Res.FTitle; |
Item.ThreadItem.Title := Res.FTitle; |
| 2304 |
ATitle := Item.ThreadItem.Title; |
ATitle := Item.ThreadItem.Title; |
| 2305 |
end else if ATitle = '(名称不明)' then begin |
end else if ATitle = '(名称不明)' then begin |
| 2306 |
DivideStrLine(GikoSys.ReadThreadFile(Item.ThreadItem.GetThreadFileName, 1), @Res); |
THTMLCreate.DivideStrLine(GikoSys.ReadThreadFile(Item.ThreadItem.GetThreadFileName, 1), @Res); |
| 2307 |
ATitle := Res.FTitle; |
ATitle := Res.FTitle; |
| 2308 |
end; |
end; |
| 2309 |
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
for i := BrowserTab.Tabs.Count - 1 downto 0 do begin |
| 6433 |
tmp := GikoSys.ReadThreadFile(FileName, Number); |
tmp := GikoSys.ReadThreadFile(FileName, Number); |
| 6434 |
end; |
end; |
| 6435 |
if tmp <> '' then begin |
if tmp <> '' then begin |
| 6436 |
DivideStrLine(tmp, @Res); |
THTMLCreate.DivideStrLine(tmp, @Res); |
| 6437 |
|
|
| 6438 |
Header := IntToStr(Number) + ' :' + Res.FName + ' :' + Res.FDateTime + #13#10; |
Header := IntToStr(Number) + ' :' + Res.FName + ' :' + Res.FDateTime + #13#10; |
| 6439 |
if ReplaceTag then begin |
if ReplaceTag then begin |