請問一下... 是不有函數可是判斷....

Hi arvin,    就我所知，沒有現成的函數(知道的人幫我更新一下吧！)

procedure TForm1.Button1Click(Sender: TObject);
VAR
    P : Integer;
    S1 : Array[0..1000] OF Char;
    C : Boolean;
begin
  StrPCopy(S1,Edit1.Text);
  P := 0;
  C := False;
  while  P <= Length(Edit1.Text) - 1 do
    begin
      if ORD(S1[P]) > 127 then
        begin
          C := True;
          Break;
        end;
      Inc(P);
    end;
  if C then
    showmessage('中文')
  else
    Showmessage('英文');
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

請善用站上的尋找功能哦。 http://delphi.ktop.com.tw/topic.php?topic_id=23509 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=20191 ..-----------βλμε------------..
◎Ｏｏ月夜 光明 藍更愁ｏＯ◎
藍調月光城v4：http://inping.myweb.hinet.net/ (暫時使用中..) 明日報(藍調．月光)：http://mypaper2.ttimes.com.tw/user/a6475

------
月夜 光明 藍更愁

procedure TForm1.Button1Click(Sender: TObject); var   c : WideString;   b : string;   i: integer; begin   c:=Edit1.Text ;   For i := 1 to length(c) do   begin     b := c[i];     if length(b) >= 2 then       中文     else       英文;   end; end;    這是我的做法... 希望還有簡單的做法...

判断127是一个方法，但还是有缺陷。建议使用下面的这个函数来判断。 function ByteType(const S: string; Index: Integer): TMbcsByteType; type TMbcsByteType = (mbSingleByte, mbLeadByte, mbTrailByte);