211108

2003.07.30 (水) 01:35:15 <Heracules> 日本語ID許可時に、制御文字(Chr(0)〜Chr(31)およびChr(127))を制限するようにしました。
2003.07.30 (水) 01:35:41 <Heracules> Chr(32)は半角スペースなので、IDには絶対に含まれませんので、関係ありません。
2003.07.30 (水) 01:36:08 <Heracules> Chr(33)は'!'です。
2003.07.30 (水) 01:36:39 <Heracules> shuusei211106のバグ修正も含みます。
shuusei211108:日本語ID許可時の制御文字の制限(source by Heracules)

diff --dos -urN 211107/stypes.pas 211108/stypes.pas
--- 211107/stypes.pas	Sun Jul 27 17:12:22 2003
+++ 211108/stypes.pas	Tue Jul 29 23:49:53 2003
@@ -1217,9 +1217,9 @@
  if Result=false then exit;
  if id_2byte_enabled then
  begin
-   for i:=0 to 9 do
+   for i:=1 to Length(str) do
    begin
-     if AnsiPos('!',str)<>0 then
+     if (str[i] in [Chr(0)..Chr(33),Chr(127)]) then
      begin
        Result:=false;
        exit;
@@ -1236,10 +1236,13 @@
      end;
    end;
  end;
- if (AnsiPos('$'+IntToStr(i), str)<>0) then
+ for i:=0 to 9 do
  begin
-   Result:=false;
-   exit;
+   if (AnsiPos('$'+IntToStr(i), str)<>0) then
+   begin
+     Result:=false;
+     exit;
+   end;
  end;
 end;