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.199 by h677, Tue Mar 2 14:54:29 2004 UTC revision 1.200 by h677, Tue Mar 2 15:01:40 2004 UTC
# Line 6776  begin Line 6776  begin
6776                  // 文字コードはプラグインに任せる                  // 文字コードはプラグインに任せる
6777                  for i := StNum to ToNum do begin                  for i := StNum to ToNum do begin
6778                      Line := i;                      Line := i;
6779                      //ここで2ちゃんねるのdatの形式で1行読み込めれば・・・。                      //ここで2ちゃんねるのdatの形式で1行読み込めれば・・・。↓読めるようになった
6780                      tmp := boardPlugIn.GetDat( DWORD( threadItem ), i );                      tmp := boardPlugIn.GetDat( DWORD( threadItem ), i );
6781                      if (tmp <> '') And ( not GikoSys.FAbon.CheckAbonPopupRes(tmp) And( not GikoSys.FAbon.CheckIndividualAbonList(line))) then begin                      if (tmp <> '') And ( not GikoSys.FAbon.CheckAbonPopupRes(tmp) And( not GikoSys.FAbon.CheckIndividualAbonList(line))) then begin
6782                          Res := GikoSys.DivideStrLine(tmp);                          Res := GikoSys.DivideStrLine(tmp);
6783                            if (GikoSys.Setting.ShowMail = false) or (Length(res.FMailTo) = 0) then
6784                                    Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' 投稿日: ' + Res.FDateTime
6785                            else
6786                                    Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' [' + res.FMailTo + '] 投稿日: ' + Res.FDateTime;
6787    
                         Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' 投稿日: ' + Res.FDateTime;  
6788    
6789                          Body := CustomStringReplace(Res.FBody, '<br> ', #10,true);                          Body := CustomStringReplace(Res.FBody, '<br> ', #10,true);
6790                          Body := CustomStringReplace(Body, '<br>', #10,true);                          Body := CustomStringReplace(Body, '<br>', #10,true);
# Line 6804  begin Line 6807  begin
6807                      tmp := GikoSys.ReadThreadFile(FileName, Line);                      tmp := GikoSys.ReadThreadFile(FileName, Line);
6808                      if (tmp <> '') And ( not GikoSys.FAbon.CheckAbonPopupRes(tmp) And( not GikoSys.FAbon.CheckIndividualAbonList(line))) then begin                      if (tmp <> '') And ( not GikoSys.FAbon.CheckAbonPopupRes(tmp) And( not GikoSys.FAbon.CheckIndividualAbonList(line))) then begin
6809                          Res := GikoSys.DivideStrLine(tmp);                          Res := GikoSys.DivideStrLine(tmp);
6810                            if (GikoSys.Setting.ShowMail = false) or (Length(res.FMailTo) = 0) then
6811                                    Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' 投稿日: ' + Res.FDateTime
6812                            else
6813                                    Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' [' + res.FMailTo + '] 投稿日: ' + Res.FDateTime;
6814    
                         Header := IntToStr(Line) + ' 名前: ' + Res.FName + ' 投稿日: ' + Res.FDateTime;  
6815                          Body := CustomStringReplace(Res.FBody, '<br> ', #10,true);                          Body := CustomStringReplace(Res.FBody, '<br> ', #10,true);
6816                          Body := CustomStringReplace(Body, '<br>', #10,true);                          Body := CustomStringReplace(Body, '<br>', #10,true);
6817                          Body := CustomStringReplace(Body, '</a>', '',true);                          Body := CustomStringReplace(Body, '</a>', '',true);

Legend:
Removed from v.1.199  
changed lines
  Added in v.1.200

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