Parse2ch内で、文字列長を確認しないで、文字を参照している部分を

文字列長を確認するようにした。
（一部URLでエラーがでる不具合の対策）

diff --git a/GikoSystem.pas b/GikoSystem.pas
index 9b1fa15..e955f2b 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -3033,7 +3033,7 @@ begin
        Index := AnsiPos(READ_PATH, path);
        if Index <> 0 then begin
                s := Copy(path, Index + Length(READ_PATH), Length(path));
-               if s[1] = '/' then
+        if (Length(s) > 0) and (s[1] = '/') then
                        Delete(s, 1, 1);
                BBSID := GetTokenIndex(s, '/', 0);
                BBSKey := GetTokenIndex(s, '/', 1);