求教乱码的解决方案

Question

如何才能通过程序来区分一段代码是乱码还是中文汉字，如果是乱码则把它转化为汉字。有人能帮忙设计一下吗？

Answer 1

给个参考：
procedure TForm1.Button1Click(Sender: TObject);
var
  c1,c2: Char;
begin
  c1 := edit1.Text[1];
  c2 := edit1.Text[2];
  if (ord(c1)>=$81) and (ord(c1)<$FE) then
  begin
    if ord(c2)<>$7F then
      showmessage('是汉字')
    else
      showmessage('不是汉字');
  end
  else
    showmessage('不是汉字');
end;