解决粘贴中文字符串乱码问题

 if ((ssCtrl in Shift) AND (Key = ord('V'))) then
  begin
    i_xm.Clear;
    str:=Trim(clipboard.AsText);
    i_xm.Text:=UTF8Decode(str);
  end;

  

posted @ 2015-12-09 09:46  步三少  阅读(459)  评论(0编辑  收藏  举报