Browse Source

* fixed ShortStringClass.toString() (skipped last char) and also use it
in ShortStringClass.toUnicodeString()

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

Jonas Maebe 14 years ago
parent
commit
469bda2710
1 changed files with 2 additions and 2 deletions
  1. 2 2
      rtl/java/sstrings.inc

+ 2 - 2
rtl/java/sstrings.inc

@@ -153,7 +153,7 @@ end;
 
 function ShortstringClass.toUnicodeString: unicodestring;
 begin
-  result:=UnicodeString(JLString.Create(TJByteArray(fdata)));
+  result:=UnicodeString(toString);
 end;
 
 
@@ -166,7 +166,7 @@ end;
 function ShortstringClass.toString: JLString;
 begin
   if curlen<>0 then
-    result:=JLString.Create(TJByteArray(fdata),0,curlen-1)
+    result:=JLString.Create(TJByteArray(fdata),0,curlen)
   else
     result:='';
 end;