+ AnsistringClass.Create(unicodestring) constructor that implicitly selects

    the DefaultSystemCodePage for use from Java code

git-svn-id: trunk@21724 -

rtl/java/jastringh.inc

@@ -26,6 +26,7 @@ type
     constructor Create(len: longint; cp: TSystemCodePage);overload;
     constructor Create(const arr: array of ansichar; length: longint; cp: TSystemCodePage);overload;
     constructor Create(const arr: array of unicodechar; cp: TSystemCodePage);overload;
+    constructor Create(const u: unicodestring);overload;
     constructor Create(const u: unicodestring; cp: TSystemCodePage);overload;
     constructor Create(const a: RawByteString; cp: TSystemCodePage);overload;
     constructor Create(const s: shortstring; cp: TSystemCodePage);overload;

rtl/java/jastrings.inc

@@ -79,6 +79,13 @@ begin
 end;
 
 
+constructor AnsistringClass.Create(const u: unicodestring);
+begin
+  { for use in Java code }
+  Create(u,DefaultSystemCodePage);
+end;
+
+
 constructor AnsistringClass.Create(const a: RawByteString; cp: TSystemCodePage);
 begin
   Create(AnsistringClass(a).fdata,system.length(AnsistringClass(a).fdata)-1,cp);