| 56 |
FReturnNGwordLineNum : Boolean; //NGワードの行数を返す。 |
FReturnNGwordLineNum : Boolean; //NGワードの行数を返す。 |
| 57 |
FSetNGResAnchor : Boolean; //NGに該当したときに本文にそのレスへのレスアンカーをつけるかどうか |
FSetNGResAnchor : Boolean; //NGに該当したときに本文にそのレスへのレスアンカーをつけるかどうか |
| 58 |
FDeleteSyria: Boolean; //シリア語ブラクラ対策(܀~ݏ) |
FDeleteSyria: Boolean; //シリア語ブラクラ対策(܀~ݏ) |
| 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); |
| 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 |
|
|
| 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 |
| 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; |
| 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 |