1. °³¹ß/½ÇÇà Ç÷§Æû (1) OS : Win10 (2) °³¹ßÅø : XE8 (3) »ç¿ë Database :
2. °³¹ß ÁßÀÎ ÇÁ·Î±×·¥ ¼ýÀÚ ¹× A,a¸¸ ÀÔ·Â ¹æ½Ä
3. Áú¹® ³»¿ë Edit¿¡ ¼ýÀÚ(0~9), A, a¸¸ ÀԷ¹޴ ÇÁ·Î±×·¥ÀÔ´Ï´Ù. A(¶Ç´Â a)´Â 12¼ýÀÚµÚ¿¡¸¸ ÀÔ·ÂÀÌ °¡´ÉÇÏ°Ô ÇÏ·Á¸é ¾î¶»°Ô ÇØ¾ß Çϳª¿ä? procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); var iLn: integer; begin if ( ((Key >= #$30) and (Key <= #$39))or(Key = 'A')or(Key = 'a') ) then begin
end else begin Key := #0; end; end; Á¶¾ðÀ» ±¸Çغ¾´Ï´Ù.
|