如何在TEdit的KeyPress事件里判断输入的是某个汉字字符（在线）

Question

如题：假如用户输入的是汉字的句号，现在要将它转换成小数点。

Answer 1

由下面的代码可以得到用户输入字符的Key值
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  showmessage(inttostr(ord(Key)));
end;
问题答案如下：（其他的楼主用上面的方法取得Key值，然后写代码）
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if Key = #161 then//句号Key为161
    Key := #46;//小数点Key为46
end;

Answer 2

上面的方法不太保险，因为汉字输入占两个字节，而Key只有一个字节，所以可能出错，建议楼主改为在取Edit1.Text时，使用字符串处理函数StringReplace函数，那样保险一点
StringReplace(Edit1.Text,'。','.',[rfReplaceAll])