From 17f91bd25099deb5d112a9992fce8b3e8e45ac4c Mon Sep 17 00:00:00 2001
From: h677 <h677>
Date: Sat, 5 Aug 2006 16:00:34 +0000
Subject: [PATCH] =?utf8?q?=E3=82=B7=E3=83=AA=E3=82=A2=E8=AA=9E=E3=83=96?=
 =?utf8?q?=E3=83=A9=E3=82=AF=E3=83=A9=E9=A1=9E=E4=BC=BC=E3=81=AE=E6=96=87?=
 =?utf8?q?=E5=AD=97=E3=81=AB=E5=AF=BE=E5=BF=9C?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 AbonUnit.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/AbonUnit.pas b/AbonUnit.pas
index 20e0c0d..e5e5b3e 100644
--- a/AbonUnit.pas
+++ b/AbonUnit.pas
@@ -883,8 +883,11 @@ begin
 				Dec(ps);
 
 			//ƒVƒŠƒAŒêƒuƒ‰ƒNƒ‰‚Ì‚Å‚È‚¢
-			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
-- 
2.11.0