RemoveToken内で、Resultの文字列長が0になるケースがあるので、

[gikonavigoeson/gikonavi.git] / MojuUtils.pas

diff --git a/MojuUtils.pas b/MojuUtils.pas
index 4291e20..cef34b1 100644 (file)
--- a/MojuUtils.pas
+++ b/MojuUtils.pas
@@ -366,10 +366,11 @@ begin
                p := pos - pss;
                SetString(Result, pss, p);
                Delete(s, 1, p + Length(delimiter));
-
-               if (StrByteType(PChar(Result), Length(Result)-1) = mbLeadByte) then begin
-                       SetLength(Result, Length(Result) - 1);
-               end;
+        if (Length(Result) > 0) then begin
+               if (StrByteType(PChar(Result), Length(Result)-1) = mbLeadByte) then begin
+                       SetLength(Result, Length(Result) - 1);
+                   end;
+        end;
        end else begin
                Result := s;
                s := '';