| 2268 |
boardPlugIn : TBoardPlugIn; |
boardPlugIn : TBoardPlugIn; |
| 2269 |
i: Integer; |
i: Integer; |
| 2270 |
browserRec : TBrowserRecord; |
browserRec : TBrowserRecord; |
| 2271 |
|
Res : TResRec; |
| 2272 |
begin |
begin |
| 2273 |
try |
try |
| 2274 |
if Item.DownType = gdtBoard then |
if Item.DownType = gdtBoard then |
| 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 |
Item.ThreadItem.Title := DivideStrLine(boardPlugIn.GetDat( DWORD( Item.ThreadItem ), 1 )).FTitle; |
DivideStrLine(boardPlugIn.GetDat( DWORD( Item.ThreadItem ), 1 ), @Res); |
| 2303 |
|
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 |
ATitle := DivideStrLine(GikoSys.ReadThreadFile(Item.ThreadItem.GetThreadFileName, 1)).FTitle; |
DivideStrLine(GikoSys.ReadThreadFile(Item.ThreadItem.GetThreadFileName, 1), @Res); |
| 2307 |
|
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 |
| 2310 |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread = Item.ThreadItem then begin |
if TBrowserRecord(BrowserTab.Tabs.Objects[i]).Thread = Item.ThreadItem then 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 |
Res := DivideStrLine(tmp); |
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 |