濁音、半濁音が含まれていると不具合を起こす可能性が考えられたので、

NGワードの半角全角問わないのを以前のように全半角区別するようにした。

diff --git a/AbonUnit.pas b/AbonUnit.pas
index 3925ee3..6910d01 100644 (file)
--- a/AbonUnit.pas
+++ b/AbonUnit.pas
@@ -352,11 +352,11 @@ begin
                        end;
 
                        for cells := start to High(Ftokens[lines]) do begin
-                               if VaguePos(Ftokens[lines][cells],bufline) = 0 then begin
+                               if AnsiPos(Ftokens[lines][cells],bufline) = 0 then begin
                                        hit := false;
                                        break;
                                end else begin
-                                       Delete(bufline, VaguePos(Ftokens[lines][cells],bufline),Length(Ftokens[lines][cells]));
+                                       Delete(bufline, AnsiPos(Ftokens[lines][cells],bufline),Length(Ftokens[lines][cells]));
                                end;
                        end;
                        if hit = true then begin