문자가 한글이지 확인하는 법

주소창에 입력받은 URL이 한글인지 확인하여 검색으로 돌리는 기능을 구현해야

해서 알게된 ByteType 함수다. 한글인지를 확인해 준다기 보다는 변수의 Index번째
 
문자가 싱글 바이트 문자인지 DBCS문자의 첫번째 바이트인지 두번재 바이트인지를 반환해주는

일을 하는 함수다 SysUtils 유닛 파일에 정의되어 있다. 원형은...

function ByteType(const S: string; Index: Integer): TMbcsByteType;

리턴타입은 TMbcsByteType이고 mbSingleByte, mbLeadByte, mbTrailByte 중에

하나로 값이 리턴되어 온다.

내가 사용했던 코드를 예로 들면
...
if ByteType( Edit.Text, 1) <> mbSingleByte then //첫글자가 싱글바이트 문자가 아니면
begin
...
end;

아무생각 없이 준 조건이라... 문제가 있을 지도... -┏

대상 문자열이 PChar형인 경우에는 아래 함수를 사용.

function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType;