Delphi가 문자가 한자인지 아닌지를 판단하는 가장 좋은 방법

 

 
//           function IsHZ(ch: WideChar): boolean;  var    i:integer;  begin    i:=ord(ch);    if( i<19968) or (i>40869) then      result:=false else result:=true;  end;  
//         function IsHZ(ch: WideChar): boolean;var  i:integer;begin  i:=ord(ch);  if( i<19968) or (i>40869) then    result:=false else result:=true;end;
//           function TForm1.IsHZ(ch: Char): boolean;  begin    //     0          ,     1              if(ord(bytetype(ch,1))=1) then result:=true    else result:=false;  end;  
//         function TForm1.IsHZ(ch: Char): boolean;begin  //     0          ,     1            if(ord(bytetype(ch,1))=1) then result:=true  else result:=false;end;
//           function IsMBCSChar(const ch: Char): Boolean;   begin     Result := (ByteType(ch, 1) <> mbSingleByte);   end;   
 



좋은 웹페이지 즐겨찾기