function sStrChk( sString : string ) : string;
var
nI , nJ , nChk : integer;
begin
//여기선 문조건 첫째자에 대한 검색을 합니다... ^^
nChk := 0;
if copy(sSTring,1,1) > #127 then
result := '한글'
else if (copy(sSTring,1,1) >= #48) and (copy(sSTring,1,1) <= #57) then
result := '숫자'
else result := '문자';
end;
showmessage( sSTrChk( Edit1.text) );
이렇게 하믄 됩니다. ^^
function sStrChk( sString : string ) : string;
var
nI , nJ , nChk : integer;
begin
//여기선 문조건 첫째자에 대한 검색을 합니다... ^^
nChk := 0;
if copy(sSTring,1,1) > #127 then
result := '한글'
else if (copy(sSTring,1,1) >= #48) and (copy(sSTring,1,1) <= #57) then
result := '숫자'
else result := '문자';
end;