paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 06:29:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ AnsistringClass.Create(unicodestring) constructor that implicitly selects

Browse Source 
the DefaultSystemCodePage for use from Java code

git-svn-id: trunk@21724 -
This commit is contained in:
Jonas Maebe 2012-06-27 16:13:47 +00:00
parent 0cea493014
commit 595f28e6fa
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/java/jastringh.inc
View File

@ -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;

7
rtl/java/jastrings.inc
View File

@ -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);