프로그래밍 노트

TEdit에서 숫자만 입력 가능하게 하는 방법 procedure TfrmTest.edtTestKeyPress(Sender: TObject; var Key: Char); begin // 숫자만 입력 가능하게 if (key in ['0'..'9']) or (Key = #8) then else Key := #0; end; 아래와 같이도 할 수 있음 iKey := ord(Key); if iKey = $08 then exit; if not(iKey in [$30..$39]) then begin Key := #0; exit; end;