var
  lsstring : widestring;
begin
  lsstring := Edit1.Text;
  lsString := utf8encode(lsString);
  ShowMessage(lsString);
  lsString := Utf8decode(lsString);
  ShowMessage(lsString);就是这么简单的几句话。当Edit1中输入偶数个中文字符的时候,转换是正常的。但是当输入奇数个字符的时候Decode出来就是空字符串了。
是我用的有问题?还是本身的bug啊?有没有可以用的Utf8Decode的代码啊??