Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/GikoSystem.pas

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

revision 1.204 by h677, Tue Dec 6 15:25:24 2005 UTC revision 1.205 by h677, Fri Dec 9 17:06:30 2005 UTC
# Line 713  begin Line 713  begin
713                                          Board.BoardPlugIn,                                          Board.BoardPlugIn,
714                                          Board,                                          Board,
715                                          Board.BoardPlugIn.FileName2ThreadURL( DWORD( Board ), FileList[i] ) );                                          Board.BoardPlugIn.FileName2ThreadURL( DWORD( Board ), FileList[i] ) );
716                                  DivideStrLine(Board.BoardPlugIn.GetDat( DWORD( ThreadItem ), 1 ), @ResRec);                                  THTMLCreate.DivideStrLine(Board.BoardPlugIn.GetDat( DWORD( ThreadItem ), 1 ), @ResRec);
717                          end else begin                          end else begin
718                                  ThreadItem := TThreadItem.Create(                                  ThreadItem := TThreadItem.Create(
719                                          nil,                                          nil,
720                                          Board,                                          Board,
721                                          Get2chBoard2ThreadURL( Board, ChangeFileExt( FileList[i], '' ) ) );                                          Get2chBoard2ThreadURL( Board, ChangeFileExt( FileList[i], '' ) ) );
722                                  DivideStrLine(ReadThreadFile(FileName, 1), @ResRec);                                  THTMLCreate.DivideStrLine(ReadThreadFile(FileName, 1), @ResRec);
723                          end;                          end;
724    
725                          ThreadItem.BeginUpdate;                          ThreadItem.BeginUpdate;
# Line 2953  begin Line 2953  begin
2953    
2954                          for i := 0 to threadItem.Count - 1 do begin                          for i := 0 to threadItem.Count - 1 do begin
2955                                  // レス                                  // レス
2956                                  DivideStrLine(boardPlugIn.GetDat(DWORD( threadItem ), i + 1), @Res);                                  THTMLCreate.DivideStrLine(boardPlugIn.GetDat(DWORD( threadItem ), i + 1), @Res);
2957                                  if(AnsiPos(AID, Res.FDateTime) > 0) then begin                                  if(AnsiPos(AID, Res.FDateTime) > 0) then begin
2958                                          body.Add(IntToStr(i+1));                                          body.Add(IntToStr(i+1));
2959                                  end;                                  end;
# Line 2963  begin Line 2963  begin
2963                          try                          try
2964                                  ReadList.LoadFromFile(ThreadItem.GetThreadFileName);                                  ReadList.LoadFromFile(ThreadItem.GetThreadFileName);
2965                                  for i := 0 to ReadList.Count - 1 do begin                                  for i := 0 to ReadList.Count - 1 do begin
2966                                          DivideStrLine(ReadList[i], @Res);                                          THTMLCreate.DivideStrLine(ReadList[i], @Res);
2967                                          if AnsiPos(AID, Res.FDateTime) > 0 then begin                                          if AnsiPos(AID, Res.FDateTime) > 0 then begin
2968                                                  body.Add(IntToStr(i+1));                                                  body.Add(IntToStr(i+1));
2969                                          end;                                          end;
# Line 3034  begin Line 3034  begin
3034                          //===== プラグインによる表示                          //===== プラグインによる表示
3035                          //boardPlugIn           := ThreadItem.BoardPlugIn;                          //boardPlugIn           := ThreadItem.BoardPlugIn;
3036              boardPlugIn         := ThreadItem.ParentBoard.BoardPlugIn;              boardPlugIn         := ThreadItem.ParentBoard.BoardPlugIn;
3037                          DivideStrLine(boardPlugIn.GetDat(DWORD( threadItem ), AIDNum), @Res);                          THTMLCreate.DivideStrLine(boardPlugIn.GetDat(DWORD( threadItem ), AIDNum), @Res);
3038                  end else begin                  end else begin
3039                          DivideStrLine( ReadThreadFile(ThreadItem.GetThreadFileName, AIDNum), @Res);                          THTMLCreate.DivideStrLine( ReadThreadFile(ThreadItem.GetThreadFileName, AIDNum), @Res);
3040                  end;                  end;
3041                  AID := Res.FDateTime;                  AID := Res.FDateTime;
3042                  if AnsiPos('id', AnsiLowerCase(AID)) > 0 then begin                  if AnsiPos('id', AnsiLowerCase(AID)) > 0 then begin

Legend:
Removed from v.1.204  
changed lines
  Added in v.1.205

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