Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/ExternalThreadItem.pas

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

revision 1.7 by yoffy, Sat Nov 22 04:57:40 2003 UTC revision 1.8 by h677, Mon Dec 1 14:32:40 2003 UTC
# Line 287  begin Line 287  begin
287          // 引数を分解          // 引数を分解
288          res                                     := GikoSys.DivideStrLine( string( inDatRes ) );          res                                     := GikoSys.DivideStrLine( string( inDatRes ) );
289      if AnsiCompareStr( string( inDatRes ) , '' ) <> 0 then begin      if AnsiCompareStr( string( inDatRes ) , '' ) <> 0 then begin
         res.FBody               := GikoSys.ConvRes( res.FBody, threadItem.ParentBoard.BBSID, ChangeFileExt( threadItem.FileName, '' ), 'bbs', 'key', 'st', 'to', 'nofirst', 'true' );  
290          res.FBody               := GikoSys.AddAnchorTag( res.FBody );          res.FBody               := GikoSys.AddAnchorTag( res.FBody );
291            res.FBody               := GikoSys.ConvRes( res.FBody, threadItem.ParentBoard.BBSID, ChangeFileExt( threadItem.FileName, '' ), 'bbs', 'key', 'st', 'to', 'nofirst', 'true',threadItem.URL );
292    
293          no                                      := IntToStr( inResNo );          no                                      := IntToStr( inResNo );
294    
295          try          try

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

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