Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.556 by h677, Tue Dec 6 14:09:23 2005 UTC revision 1.557 by h677, Fri Dec 9 17:06:30 2005 UTC
# Line 2299  begin Line 2299  begin
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
# Line 6433  begin Line 6433  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

Legend:
Removed from v.1.556  
changed lines
  Added in v.1.557

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26