diff options
Diffstat (limited to 'mips/rtl/java/jastrings.inc')
-rw-r--r-- | mips/rtl/java/jastrings.inc | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/mips/rtl/java/jastrings.inc b/mips/rtl/java/jastrings.inc index 6eccb4827f..276f7829ca 100644 --- a/mips/rtl/java/jastrings.inc +++ b/mips/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); |