求指教、这2行代码分别什么意思,该怎么解决

求指教、这2行代码分别什么意思
var
 L1:integer;
begin
L1:=length(str)+1;
setlength(Result,L1);
L1:=MultiByteToWideChar(codepage,0,PCha(Str),-1,PWideChar(Result),L1);
setlength(Result,L1-1);
end;

与

var
  L2:integer;
  strk:string;
begin
L2:=length(str)*2
setlength(strk,L2);
L2:=MultiByteToWideChar(codepage,0,PWideChar(Str),-1,PChar(strk),L2,nil,nil);
result:=strk;
end;

求高手指点分别处理了什么，我只知道这是编码处理、就是不知道处理过程，比如str:=abcd，,codepage:=949,最后结果是什么，只要答案有帮助，我把问题解决了分全部给你、不分其他人



[解决办法]
http://baike.baidu.com/view/1907282.htm
[解决办法]
这2段意思結果都1样
第1段是直接使用了函数的返回变量result(这个是隐含的)
第2段是用了strk变量，最后返回strk(即result=strk)

主要的是MultiByteToWideChar这个函数用法，自己百度百度吧
至于length，setlength就不解释了