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.39 by h677, Sun Aug 21 09:57:15 2005 UTC revision 1.40 by h677, Mon Aug 22 15:05:31 2005 UTC
# Line 56  type Line 56  type
56      FReturnNGwordLineNum : Boolean;     //NGワードの行数を返す。      FReturnNGwordLineNum : Boolean;     //NGワードの行数を返す。
57      FSetNGResAnchor : Boolean; //NGに該当したときに本文にそのレスへのレスアンカーをつけるかどうか      FSetNGResAnchor : Boolean; //NGに該当したときに本文にそのレスへのレスアンカーをつけるかどうか
58                  FDeleteSyria: Boolean;  //シリア語ブラクラ対策(&#1792~&#1871)                  FDeleteSyria: Boolean;  //シリア語ブラクラ対策(&#1792~&#1871)
59                    FIgnoreKana: Boolean;   //全角半角ひらがなカタカナの違いを無視するか
60      procedure SetTokens(index: integer ; argline:String);      procedure SetTokens(index: integer ; argline:String);
61      function Getlistpath() : String;      function Getlistpath() : String;
62      procedure Setlistpath(const Value : String);      procedure Setlistpath(const Value : String);
# Line 76  type Line 77  type
77      property NGwordname : String read FNGwordname write FNGwordname;      property NGwordname : String read FNGwordname write FNGwordname;
78          property ReturnNGwordLineNum : Boolean read FReturnNGwordLineNum write FReturnNGwordLineNum default false;          property ReturnNGwordLineNum : Boolean read FReturnNGwordLineNum write FReturnNGwordLineNum default false;
79      property SetNGResAnchor : Boolean read FSetNGResAnchor write FSetNGResAnchor default false;      property SetNGResAnchor : Boolean read FSetNGResAnchor write FSetNGResAnchor default false;
80      property DeleteSyria : Boolean read FDeleteSyria write FDeleteSyria default false;          property DeleteSyria : Boolean read FDeleteSyria write FDeleteSyria default false;
81            property IgnoreKana: Boolean read FIgnoreKana write FIgnoreKana default false;
82      procedure Setroot(root :String);      procedure Setroot(root :String);
83      function Getroot() : String;      function Getroot() : String;
84    
# Line 389  begin Line 391  begin
391                          ret := bufstl.Count;                          ret := bufstl.Count;
392                          SetLength(Ftokens[index],ret);                          SetLength(Ftokens[index],ret);
393                          for i := 0 to bufstl.Count - 1  do begin                          for i := 0 to bufstl.Count - 1  do begin
394                                  Ftokens[index][i] := ZenToHan(bufstl.Strings[i]);                                  if IgnoreKana then
395                                            Ftokens[index][i] := ZenToHan(bufstl.Strings[i])
396                                    else
397                        Ftokens[index][i] := bufstl.Strings[i];
398                          end;                          end;
399                  end;                  end;
400          finally          finally
# Line 423  var Line 428  var
428          hit : Boolean;          hit : Boolean;
429          bufline : String;          bufline : String;
430          start : Integer;          start : Integer;
431            target : String;
432            pos : Integer;
433  begin  begin
434          hit := false;          hit := false;
435          if AnsiPos(FAbonString,line) <> 1 then begin          if AnsiPos(FAbonString,line) <> 1 then begin
436                    //全半角ひらカナ無視するか
437                    if IgnoreKana then
438                            target := ZenToHan(line)
439                    else
440                            target := line;
441                  for lines := 0 to High(Ftokens) do begin                  for lines := 0 to High(Ftokens) do begin
442                          hit := true;                          hit := true;
443                          bufline := ZenToHan(line);                          bufline := target;
444                          if Ftokens[lines][0] <> ''  then begin                          if Ftokens[lines][0] <> ''  then begin
445                                  Invisible := false;                                  Invisible := false;
446                                  start := 0;                                  start := 0;
# Line 438  begin Line 450  begin
450                          end;                          end;
451    
452                          for cells := start to High(Ftokens[lines]) do begin                          for cells := start to High(Ftokens[lines]) do begin
453                                  if AnsiPos(Ftokens[lines][cells],bufline) = 0 then begin                                  pos := AnsiPos(Ftokens[lines][cells],bufline);
454                                    if pos = 0 then begin
455                                          hit := false;                                          hit := false;
456                                          break;                                          break;
457                                  end else begin                                  end else begin
458                                          Delete(bufline,AnsiPos(Ftokens[lines][cells],bufline),Length(Ftokens[lines][cells]));                                          Delete(bufline, pos, Length(Ftokens[lines][cells]));
459                                  end;                                  end;
460                          end;                          end;
461                          if hit = true then begin                          if hit = true then begin

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

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