다 아시겠지만 밑에 소스는 에디트 박스에 숫자를 입력하고 OK버튼을 누르면 그 값에 따라서 레이블에 A인지 B인지 기타인지 나타는 건데요.
procedure TForm1.btnOkClick(Sender: TObject);
var
i:integer;
begin
i:=strtoint(edtNum.text);
case i of
90..100 : lblGrade.caption:='A';
80..89 : lblGrade.caption:='B';
else lblGrade.caption:='기타';
end;
end;
이거랑 비슷한 건데 숫자대신 대문자 A가 들어가면 대문자라고 출력을 해주고 소문자가 들어가면 소문자라고 출력해 주는 프로그램을 좀 설명해 주세요.
숫자는 알겠는데 도저히 문자는 모르겠네요...^^
begin
if (key >= #65) and (key <= #90) then //대문자A : 65, 대문자 Z : 90
showmessage('대문자입니다.')
else if (key >= #97) and (key <= #122) then //소문자 a : 97, 소문자 z : 122
showmessage('소문자입니다.')
else
showmessage('대소문자 이외의 값입니다..');
end;
이렇게 하시면 될거같습니다..