NGの処理を正規表現利用化にして、

[gikonavigoeson/gikonavi.git] / AbonUnit.pas

diff --git a/AbonUnit.pas b/AbonUnit.pas
index 20e0c0d..e5e5b3e 100644 (file)
--- a/AbonUnit.pas
+++ b/AbonUnit.pas
@@ -883,8 +883,11 @@ begin
                                Dec(ps);
 
                        //\83V\83\8a\83A\8cê\83u\83\89\83N\83\89\82Ì\82Å\82È\82¢
-                       if (icode <1792) or (icode > 1871) then
-                               Result := Result + Copy(AString, 1, ps - PChar(AString) + 1);
+            if ( icode < 1758) or
+                ((icode > 1871) and (icode < 1958)) or
+                (icode > 1968) then begin
+                Result := Result + Copy(AString, 1, ps - PChar(AString) + 1);
+            end;
 
                        Delete(AString, 1, ps - PChar(AString) + 1);
                end else begin