好象是ORD()>64还是多少啊,
搞忘了

解决方案 »

  1.   

    对了:是 (edit1.text[i] in [#$A1..#$FE]) then
      

  2.   

    GB2312的汉字好处理,但GBK的汉字很难处理!没有关于它的资料!
      

  3.   

    取第一个字节,看他的ASCII码。
    是不是从a - b 或者 A - B;
    if true then
      begin
      end
    else
      begin
      end
      

  4.   

    英文可以从a..z
    A..Z中判断。
    汉字就不清楚
      

  5.   

    var
       i:integer;
      s:string;
    begin
        s:=memo1.text;
        for i:=0 to length(s) do
        begin
            if (ord(s[i])>=33 and (ord(s[1]<=126)) then
            //是字母
            else
            if ord(s[i])>=127 //是汉字;
        end;
    end;