怎么判断编辑框里不是汉字？

Question

同题！

Answer 1

参考一下function GetHz0(s:string):string;
var hz:string;i:integer;
begin
  hz:='';
  for i:=1 to length(s) do
      begin
        if ByteType(s,i) = mbSingleByte then    //单字节
           begin
               if trim(hz) = '' then
                  begin
                      hz := s[i]+ #13#10;
                  end
               else
                  begin
                      if i = Length(s) then
                         begin
                             hz := hz  + s[i];
                         end
                      else
                         begin
                             hz := hz  + s[i]+ #13#10;  //  ' ';//
                         end;
                  end;
           end
        else if ByteType(s,i) = mbLeadByte then     //双字节的第一个字节
           begin
               if trim(hz) = '' then
                  begin
                      hz := s[i];
                  end
               else
                  begin
                      hz := hz + s[i];
                  end;
           end
        else if ByteType(s,i) = mbTrailByte then   //双字节的第二个字节
           begin
               if trim(hz) = '' then
                  begin
                      hz := s[i]+ #13#10;         //虽然实际中不可能有这种情况
                  end
               else
                  begin
                      if i = Length(s) then
                         begin
                             hz := hz  + s[i];
                         end
                      else
                         begin
                             hz := hz  + s[i]+ #13#10; //  ' ';//
                         end;
                  end;
           end;
      end;
    GetHz0:=hz;
end;

Answer 2

var
  S1:String;
  S2:WideString;
begin
  S1:=Edit1.Text;
  S2:=Edit1.Text;
  If Length(S1)<>Length(S2) then
    ShowMessage('编辑框中含有汉字！');
end;

Answer 3

有ASCII大于127的就是双字节（包括汉字）ord(Char)> 127