我写的UTF16编码转String函数 ( 积分: 0 )

这是我写的UTF16编码转String函数，因为对UTF16编码不了解，所有也不知道对不对，望广大网友多指点
{utfchar是utf16编码字符，len是其长度}
function Utf16Tostring(utfchar: array of char;Len:integer): string;
var
i:integer;
chartmp:char;
begin
i:=1;
while(i < len) do
begin
chartmp:=utfchar;
utfchar:=utfchar[i-1];
utfchar[i-1]:=chartmp;
i:=i+2
end;
utfchar[i-1]:=#0;//结束标记
Result:=WideCharToString(@utfchar);
end;