Browse Source

* fixed copy(unicodestring,x,y) with x<>1 (second parameter of
JLString.subString() is end index, not total length to copy)

git-svn-id: branches/jvmbackend@19618 -

Jonas Maebe 13 years ago
parent
commit
c42e4178c5
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/java/justrings.inc

+ 1 - 1
rtl/java/justrings.inc

@@ -674,7 +674,7 @@ begin
      (Index+Size>Length(S)) then
    Size:=Length(S)-Index;
   If Size>0 then
-    result:=JLString(s).subString(Index,Size)
+    result:=JLString(s).subString(Index,Index+Size)
   else
     result:='';
 end;