예전에는 아래처럼 그냥 in 구문을 사용해서 했음.

if c in ['a'..'z', 'A'..'Z', '0'..'9'] then 어쩌구 저쩌구...




Delphi 2009 부터는 기본적으로 String이 WideString, Char는 WideChar로 변해서 저렇게 하면 warning이 뜸.
아래처럼 바꿔줘야 함.
CharInSet 함수 사용.
지저분하게 타입캐스팅 하지 말고...

if CharInSet(c, ['a'..'z', 'A'..'Z', '0'..'9']) then 어쩌구 저쩌구...




아래는 함수 원형

function CharInSet(C: AnsiChar; const CharSet: TSysCharSet): Boolean; overload;
function CharInSet(C: WideChar; const CharSet: TSysCharSet): Boolean; overload;




Posted by bloodguy
,