±ÍÇÏ´Â ¼Õ´Ô À̽ʴϴÙ
·Î±×ÀÎ
ȸ¿ø°¡ÀÔ
  
  µ¨¸¶´ç °ø½Ä ÀºÇà°èÁÂ
  ÇϳªÀºÇà 227-910235-83607
  ¿¹±ÝÁÖ ÀÌ»ó±¹(¿î¿µÁø)
ÇÁ·ÎÁ§Æ® °Ô½ÃÆÇ
ÅõÇ¥°Ô½ÃÆÇ
µ¨¸¶´ç¼Ò°³
±âÃʺÎÅÍ È°¿ë±îÁö! µ¨ÆÄÀÌ ±³À° - µ¥ºê±â¾î
°­ÁÂ, ÆÁ, Á¤º¸ °­ÁÂ, ÆÁ, Á¤º¸ ÀÔ´Ï´Ù.
±Û³»¿ë - °­ÁÂ, ÆÁ, Á¤º¸
 ÀԷ°ª °Ë»ç·çƾ - Äڵ堸®ÆÑÅ丵
𸮺ê¶ó¿î
(±Ç±¤ÀÏ)
2017-08-28 ¿ÀÀü 11:26:38
Ä«Å×°í¸®: ÆÁ
3243ȸ Á¶È¸



µî·ÏµÈ ÆÄÀÏÀÌ ¾ø½À´Ï´Ù.
ÀԷ°ª °Ë»ç·çƾ - Äڵ堸®ÆÑÅ丵 

¿ì¸®°¡ ¾÷¹«¿ë ÇÁ·Î±×·¥À» ¸¸µé¶§¸¶´Ù ÀԷ°ªÀÌ Á¦´ë·Î µé¾î ¿Ô´ÂÁö¸¦
°Ë»çÇϴ ·çƾÀÌ µé¾î°¡°Ô µÈ´Ù. ÇÏÁö¸¸ ÀÌ·± ·çƾÀº ÀԷ°ªÀÇ ·®Àǵû¶ó
¾ÆÁÖ ÁöÀúºÐÇÑ ÄÚµåµéÀ» ¸¸µé¾î ³½´Ù.

À̺κÐÀ» ´Ù¼Ò ±ò²ûÇÏ°Ô Á¤¸®ÇÒ ¼ö Àִ ÆÁÀ» ¼Ò°³ÇÑ´Ù.

º» ÆÁÀº ¿ø·¡ º»ÀÎÀÌ Áú¹®°ú ´äº¯¶õ¿¡ Áú¹®ÇÑ ³»¿ëÀε¥ 
´ÙÀ­(½ÉÀç¿ë)´Ô²²¼­ ¾ÆÀ̵ð¾î¸¦ Áּż­ ÇØ°áÇÑ ¹®Á¦ÀÌ´Ù.

.......................................................

<¿ø½ÃÄڵ堷çƾ>

procedure A;
begin
  if EditBox1.Text = '' then 
  begin
    EditBox1.SetFocus;
    Exit;
  end;
end;

<1Â÷ ¸®ÆÑÅ丵>

function TForm1.chkInputVal(Sender: TObject): Boolean;
begin
  result := false;
  if TEdit(Sender).Text = EmptyStr then TEdit(Sender).SetFocus
                                   else result := true;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Not chkInputVal( Edit1 ) then exit;
end;

1Â÷ ¸®ÆÑÄÚ¸µÀ» ÅëÇØ setfocus ÇÑÁÙÀ» ÁÙÀϼö ÀÖÀ¸³ª 
¿©ÀüÈ÷ exit; ÄÚµå´Â ÁÙÀÌÁö ¸øÇÔ.

exit Äڵ带 ÁÙÀδٴ Àǹ̴ chkInputVal ·çƾ¾È¿¡¼­ Button1Click ·çƾ±îÁö
ºüÁ® ³ª°¡°Ô ÇÒ ¼ö Àִ Äڵ尡 ÇÊ¿äÇÏ´Ù. 

º»ÀÎÀº ÀÌ ºÎºÐ¿¡ ´ëÇÑ 닶À» ¸øã°í ÀÖ¾ú´Âµ¥ ´ÙÀ­(½ÉÀç¿ë)´Ô²²¼­ ÁÁÀº ¾ÆÀ̵ð¾î¸¦ 
Áּż­ ÀÌ ¹®Á¦¸¦ ±ò²ûÇÏ°Ô ÇØ°áÇÒ ¼ö ÀÖ¾ú´Ù.

<2Â÷ ¸®ÆÑÅ丵>

function TForm1.chkInputVal(Sender: TObject): boolean;
label
  goAbort;
begin

  result := false;

  if (Sender is TEdit)      and ((Sender as TEdit).Text     = EmptyStr) then goto goAbort;
  if (Sender is TComboBox)  and ((Sender as TComboBox).Text = EmptyStr) then goto goAbort;
  if (Sender is TMemo)      and ((Sender as TMemo).Text     = EmptyStr) then goto goAbort;
  if (Sender is TListBox)   and ((Sender as TListBox).Count = 0       ) then goto goAbort;

  result := true;
  exit;

  goAbort :

    (Sender as TWinControl).SetFocus;
     Raise EAbort.Create(''); //<== ¿ä ³à¼®ÀÌ ÇÙ½ÄÄÚµå ÀÓ.
end;

procedure TForm1.Button1Click(Sender: TObject);
begin

  chkInputVal( Edit1 );
  chkInputVal( ComboBox1 );
  chkInputVal( Memo1 );
  chkInputVal( ListBox1 );

  ShowMessage('ÀԷ°ª ¸ðµÎ Á¤»ó');
end;

´ÙÀ­(½ÉÀç¿ë)´ÔÀÇ ¸»¿¡ ÀÇÇϸé 

Raise EAbort.Create(''); ºÎºÐÀÌ °­Á¦·Î Exception À» ¹ß»ý½ÃÅ°´Âµ¥, 
¹ß»ýµÈ °÷¿¡¼­ Try..Exception À¸·Î Àâ¾Æ³»Áö ¾ÊÀ¸¸é ¼Ò¼ÓµÈ ÇÁ·Î½ÃÀú³ª 
À̺¥Æ®Çڵ頿µ¿ª¿¡¼­ ºüÁ®³ª°¨. 

´Ù¸¸, Àß ¾Ë°í »ç¿ëÇϽøé Áß±ÞÇÁ·Î±×·¥À» ÇϽǠ¼ö Àִµ¥, Àß ¸ð¸£°í »ç¿ëÇϸé 
°¡µ¶¼ºÀÌ ¶³¾îÁö°í, ÄÚµùÀÌ ÁöÀúºÐÇØ Áú ¼ö ÀÖÀ½. 

¶ó°í ÇÑ´Ù. 

´ÙÀ­(½ÉÀç¿ë)´Ô ´öºÐ¿¡ º»ÀÎÀº ÀÌ ÆÁÀ» È°¿ëÇØ ÁöÀúºÐÇÑ ÀԷ°ª Ã¼Å© ÄÚµåµéÀ»
»ó´ç ºÎºÐ ¸»²ûÈ÷ °È¾î³¾¼ö ÀÖ¾ú´Ù.