Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/AbonUnit.pas

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

revision 1.18 by h677, Wed Nov 19 18:29:45 2003 UTC revision 1.19 by h677, Fri Nov 21 13:50:56 2003 UTC
# Line 69  type Line 69  type
69      procedure Execute(var ThreadStrings : TStringList); overload;      procedure Execute(var ThreadStrings : TStringList); overload;
70      procedure Execute(var ThreadStrings : TStringList; NGwords : TStringList); overload;      procedure Execute(var ThreadStrings : TStringList; NGwords : TStringList); overload;
71      procedure Execute(var ThreadStrings : TStringList; NGwords : TStrings); overload;      procedure Execute(var ThreadStrings : TStringList; NGwords : TStrings); overload;
72        procedure Execute(var ResString : String; ResNumber : Integer); overload;   //主にpluginからのDat To HTML 用
73      //個別あぼ〜んしょり      //個別あぼ〜んしょり
74      procedure IndividualAbon(var ThreadStrings : TStringList; SetResNumFile : String);      procedure IndividualAbon(var ThreadStrings : TStringList; SetResNumFile : String); overload;
75            procedure IndividualAbon(var ResString : String; SetResNumFile : String; ResNumber : Integer); overload;
76      procedure AddIndividualAbon( ResNum : Integer ; option : Integer);      procedure AddIndividualAbon( ResNum : Integer ; option : Integer);
77      procedure DeleteIndividualAbon( ResNum : Integer);      procedure DeleteIndividualAbon( ResNum : Integer);
78      function GetAbonResCount() : Integer;      function GetAbonResCount() : Integer;
# Line 412  var Line 414  var
414      bufline : String;      bufline : String;
415      invisi : Boolean;      invisi : Boolean;
416  begin  begin
417      //FRetStrings.Clear;      for i:=0 to ThreadStrings.Count - 1 do begin
418  {          NGwordsLine := 0;
419      if not ReturnNGwordLineNum then begin          if FindNGwords(ThreadStrings.Strings[i], NGwordsLine ,invisi) <> Reverse  then begin
420      //if ReturnNGwordLineNum then begin              if invisi = true then begin
421          for i:=0 to ThreadStrings.Count - 1 do begin                  ThreadStrings.Strings[i] := '';
422                  if FindNGwords(ThreadStrings.Strings[i]) <> Reverse  then begin              end else begin
423                  if not SetNGResAnchor then                  if not ReturnNGwordLineNum and not SetNGResAnchor then begin
424                          ThreadStrings.Strings[i] := FAbonString                      ThreadStrings.Strings[i] := FAbonString;
425                  else                  end else if not ReturnNGwordLineNum then begin
426                          ThreadStrings.Strings[i] := Format('&nbsp;<>&nbsp;<>&nbsp;<>&gt;%d<><>',[(i+1)]);                      ThreadStrings.Strings[i] := Format('&nbsp;<>&nbsp;<>&nbsp;<>&gt;%d<><>',[(i+1)]);
427                  end else begin                  end else if not SetNGResAnchor then begin
428                  bufline := ThreadStrings.Strings[i];                      ThreadStrings.Strings[i] := Format('&nbsp;<>&nbsp;<>&nbsp;<><B> %d 行目のNGワードが含まれています。</B><><>',[NGwordsLine]);
                 if Deleterlo = true then begin  
                         bufline := AnsiReplaceText( bufline,'&rlo;','' );  
                     bufline := AnsiReplaceText( bufline,'&lro;','' );  
                 end;  
                 if Replaceul = true then begin  
                         bufline := AnsiReplaceText( bufline,'<ul>','<br>' );  
                         bufline := AnsiReplaceText( bufline,'</ul>','<br>' );  
                 end;  
                 ThreadStrings.Strings[i] := bufline;  
                 end;  
         end;  
     end else begin  
 }  
         for i:=0 to ThreadStrings.Count - 1 do begin  
             NGwordsLine := 0;  
                 if FindNGwords(ThreadStrings.Strings[i], NGwordsLine ,invisi) <> Reverse  then begin  
                 if invisi = true then begin  
                         ThreadStrings.Strings[i] := '';  
429                  end else begin                  end else begin
430                      if not ReturnNGwordLineNum and not SetNGResAnchor then begin                      ThreadStrings.Strings[i] := Format('&nbsp;<>&nbsp;<>&nbsp;<><B> %d 行目のNGワードが含まれています。</B>&gt;%d <><>',[NGwordsLine,(i+1)]);
                         ThreadStrings.Strings[i] := FAbonString;  
                     end else if not ReturnNGwordLineNum then begin  
                         ThreadStrings.Strings[i] := Format('&nbsp;<>&nbsp;<>&nbsp;<>&gt;%d<><>',[(i+1)]);  
                     end else if not SetNGResAnchor then begin  
                         ThreadStrings.Strings[i] := Format('&nbsp;<>&nbsp;<>&nbsp;<><B> %d 行目のNGワードが含まれています。</B><><>',[NGwordsLine]);  
                     end else begin  
                         ThreadStrings.Strings[i] := Format('&nbsp;<>&nbsp;<>&nbsp;<><B> %d 行目のNGワードが含まれています。</B>&gt;%d <><>',[NGwordsLine,(i+1)]);  
                     end;  
431                  end;                  end;
432                end;
433                  {          end else begin
434                  if not SetNGResAnchor then              bufline := ThreadStrings.Strings[i];
435                      ThreadStrings.Strings[i] := Format('&nbsp;<>&nbsp;<>&nbsp;<><B> %d 行目のNGワードが含まれています。</B><><>',[NGwordsLine])              if Deleterlo = true then begin
436                  else                  bufline := AnsiReplaceText( bufline,'&rlo;','' );
437                          ThreadStrings.Strings[i] := Format('&nbsp;<>&nbsp;<>&nbsp;<><B> %d 行目のNGワードが含まれています。</B>&gt;%d <><>',[NGwordsLine,(i+1)]);                  bufline := AnsiReplaceText( bufline,'&lro;','' );
438                  }              end;
439                  end else begin              if Replaceul = true then begin
440                  bufline := ThreadStrings.Strings[i];                  bufline := AnsiReplaceText( bufline,'<ul>','<br>' );
441                  if Deleterlo = true then begin                  bufline := AnsiReplaceText( bufline,'</ul>','<br>' );
442                          bufline := AnsiReplaceText( bufline,'&rlo;','' );              end;
443                      bufline := AnsiReplaceText( bufline,'&lro;','' );              ThreadStrings.Strings[i] := bufline;
444                  end;          end;
445                  if Replaceul = true then begin      end;
                         bufline := AnsiReplaceText( bufline,'<ul>','<br>' );  
                         bufline := AnsiReplaceText( bufline,'</ul>','<br>' );  
                 end;  
                 ThreadStrings.Strings[i] := bufline;  
                 end;  
         end;  
   
 //    end;  
   
446  end;  end;
447    procedure TAbon.Execute(var ResString : String; ResNumber : Integer);
448    var
449        i : Integer;
450        NGwordsLine : Integer;
451        bufline : String;
452        invisi : Boolean;
453    begin
454        NGwordsLine := 0;
455        if FindNGwords(ResString, NGwordsLine ,invisi) <> Reverse  then begin
456            if invisi = true then begin
457                ResString := '';
458            end else begin
459                if not ReturnNGwordLineNum and not SetNGResAnchor then begin
460                    ResString := FAbonString;
461                end else if not ReturnNGwordLineNum then begin
462                    ResString := Format('&nbsp;<>&nbsp;<>&nbsp;<>&gt;%d<><>',[(ResNumber)]);
463                end else if not SetNGResAnchor then begin
464                    ResString := Format('&nbsp;<>&nbsp;<>&nbsp;<><B> %d 行目のNGワードが含まれています。</B><><>',[NGwordsLine]);
465                end else begin
466                    ResString := Format('&nbsp;<>&nbsp;<>&nbsp;<><B> %d 行目のNGワードが含まれています。</B>&gt;%d <><>',[NGwordsLine,(ResNumber)]);
467                end;
468            end;
469        end else begin
470            bufline := ResString;
471            if Deleterlo = true then begin
472                bufline := AnsiReplaceText( bufline,'&rlo;','' );
473                bufline := AnsiReplaceText( bufline,'&lro;','' );
474            end;
475            if Replaceul = true then begin
476                bufline := AnsiReplaceText( bufline,'<ul>','<br>' );
477                bufline := AnsiReplaceText( bufline,'</ul>','<br>' );
478            end;
479            ResString := bufline;
480        end;
481    end;
482    
483  procedure TAbon.Execute(var ThreadStrings : TStringList; NGwords : TStringList);  procedure TAbon.Execute(var ThreadStrings : TStringList; NGwords : TStringList);
484  var  var
485      i : Integer;      i : Integer;
# Line 795  begin Line 798  begin
798          FAbonRes[0].option := -1;          FAbonRes[0].option := -1;
799      end;      end;
800  end;  end;
801    procedure TAbon.IndividualAbon(var ResString : String; SetResNumFile : String; ResNumber : Integer);
802    var
803            i : Integer;
804    begin
805            if FileExists(SetResNumFile) = true then begin
806            if LoadFromSetResNumFile(SetResNumFile) = true then begin
807                    for i := 0 to High(FAbonRes) do begin
808                     if FAbonRes[i].Res = ResNumber then begin
809                            if FAbonRes[i].option = 0 then begin
810                            ResString := '';
811                        end else begin
812                            ResString := 'あぼ〜ん<>あぼ〜ん<>あぼ〜ん<>あぼ〜ん<>';
813                        end;
814                        Exit;
815                     end;
816                end;
817            end;
818        end else begin
819            FIndividualFileName := SetResNumFile;
820            SetLength(FAbonRes,1);
821            FAbonRes[0].Res := 0;
822            FAbonRes[0].option := -1;
823        end;
824    end;
825    
826  //個別あぼ〜んファイル読み込み関数  //個別あぼ〜んファイル読み込み関数
827  function TAbon.LoadFromSetResNumFile(SetResNumFile : String) : Boolean;  function TAbon.LoadFromSetResNumFile(SetResNumFile : String) : Boolean;
828  var  var

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

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