±ÍÇÏ´Â ¼Õ´Ô À̽ʴϴÙ
·Î±×ÀÎ
ȸ¿ø°¡ÀÔ
  
  µ¨¸¶´ç °ø½Ä ÀºÇà°èÁÂ
  ÇϳªÀºÇà 227-910235-83607
  ¿¹±ÝÁÖ ÀÌ»ó±¹(¿î¿µÁø)
ÇÁ·ÎÁ§Æ® °Ô½ÃÆÇ
ÅõÇ¥°Ô½ÃÆÇ
µ¨¸¶´ç¼Ò°³
±âÃʺÎÅÍ È°¿ë±îÁö! µ¨ÆÄÀÌ ±³À° - µ¥ºê±â¾î
Áú¹®°ú ´äº¯ Áú¹®°ú ´äº¯ ÀÔ´Ï´Ù.
±Û³»¿ë - Áú¹®°ú ´äº¯
 [Áú¹®] A(¶Ç´Â a)´Â 12¼ýÀÚµÚ¿¡¸¸ ÀÔ·ÂÀÌ °¡´ÉÇÏ°Ô ÇÏ·Á¸é ¾î¶»°Ô ÇؾߠÇϳª¿ä?
µ¨´ë¿ÕÃʺ¸
(±èÇüµ¿)
2018-06-15 ¿ÀÈÄ 2:05:30
516ȸ Á¶È¸


µî·ÏµÈ ÆÄÀÏÀÌ ¾ø½À´Ï´Ù.
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;
Á¶¾ðÀ» ±¸Çغ¾´Ï´Ù.