var s:ucs4string; a:array[1..2] of byte; begin SetLength(S,2); a[1]:=$4e; a[2]:=$2d; S[0]:=a[1]; S[0]:=S[0]*$100+a[2]; S[1]:=0; showmessage(UCS4StringToWideString(s)); end;
var s:ucs4string; a:array[1..2] of byte; begin SetLength(S,2); a[1]:=$4E; a[2]:=$00; S[0]:=a[1]; S[0]:=S[0]*$100+a[2]; S[1]:=0; showmessage(UCS4StringToWideString(s)); end;
s:ucs4string;
a:array[1..2] of byte;
begin
SetLength(S,2);
a[1]:=$4e;
a[2]:=$2d;
S[0]:=a[1];
S[0]:=S[0]*$100+a[2];
S[1]:=0;
showmessage(UCS4StringToWideString(s));
end;
s:ucs4string;
a:array[1..2] of byte;
begin
SetLength(S,2);
a[1]:=$4E;
a[2]:=$00;
S[0]:=a[1];
S[0]:=S[0]*$100+a[2];
S[1]:=0;
showmessage(UCS4StringToWideString(s));
end;
s1:string;s1:=widechar($4e00);//
s2:=widechar($4e00);//转成了ansi字符