一个很伤脑筋的问题！急！急！急！

Question

汉字的asic吗大于128，至于拷贝的可以相应onchange 

Answer 1

在Edit1的OnChange事件里：
var 
  ch:char;
  i:integer;
begin
  if Edit1.text<>'' then 
  begin
    for i:=1 to length(edit1.text) do 
    begin
      ch:=edit1.text[i];
      if not (ch in ['0'..'9','a'..'z','A'..'Z',char(' ')]) then 
      showmessage('汉字！');
    end;
  end;
end;

Answer 2

if Length(Edit1.Text)<>Length(WideString(Edit1.Text)) then
  ShowMessage('文本框中有汉字');

Answer 3

给你一个函数，可查找汉字的个数
function FindChineseNum(S:String):Integer;
var
  i:integer;
  N:Integer;
begin
  N:=0;
  i:=1;
  while i<=length(S) do
  begin
    if ord(S[i])>163 then
    begin
      i:=i+1;
      N:=N+1;
    end;
    i:=i+1;
  end;
  result:=N;
end;至于copy的，可用剪贴板对象
TClipBoard