귀하는 손님 이십니다
로그인
회원가입
  
  델마당 공식 은행계좌
  하나은행 227-910235-83607
  예금주 이상국(운영진)
프로젝트 게시판
투표게시판
델마당소개
기초부터 활용까지! 델파이 교육 - 데브기어
 광고문의 :
媛뺤쥖, 똻, 젙蹂 媛뺤쥖, 똻, 젙蹂 입니다.
글내용 - 媛뺤쥖, 똻, 젙蹂
 엯젰媛 寃궗猷⑦떞 - 肄붾뱶 由ы뙥넗留
梨⑤━釉뚮씪슫
(沅뚭킅씪)
2017-08-28 삤쟾 11:26:38
카테고리: 똻
1864회 조회



등록된 파일이 없습니다.
엯젰媛 寃궗猷⑦떞 - 肄붾뱶 由ы뙥넗留 

슦由ш 뾽臾댁슜 봽濡쒓렇옩쓣 留뚮뱾븣留덈떎 엯젰媛믪씠 젣濡 뱾뼱 솕뒗吏瑜
寃궗븯뒗 猷⑦떞씠 뱾뼱媛寃 맂떎. 븯吏留 씠윴 猷⑦떞 엯젰媛믪쓽 웾쓽뵲씪
븘二 吏遺꾪븳 肄붾뱶뱾쓣 留뚮뱾뼱 궦떎.

씠遺遺꾩쓣 떎냼 源붾걫븯寃 젙由ы븷 닔 엳뒗 똻쓣 냼媛쒗븳떎.

蹂 똻 썝옒 蹂몄씤씠 吏덈Ц怨 떟蹂뿉 吏덈Ц븳 궡슜씤뜲 
떎쐵(떖옱슜)떂猿섏꽌 븘씠뵒뼱瑜 二쇱뀛꽌 빐寃고븳 臾몄젣씠떎.

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

<썝떆肄붾뱶 猷⑦떞>

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 쑝濡 옟븘궡吏 븡쑝硫 냼냽맂 봽濡쒖떆굹 
씠踰ㅽ듃빖뱾 쁺뿭뿉꽌 鍮좎졇굹媛. 

떎留, 옒 븣怨 궗슜븯떆硫 以묎툒봽濡쒓렇옩쓣 븯떎 닔 엳뒗뜲, 옒 紐⑤Ⅴ怨 궗슜븯硫 
媛룆꽦씠 뼥뼱吏怨, 肄붾뵫씠 吏遺꾪빐 吏 닔 엳쓬. 

씪怨 븳떎. 

떎쐵(떖옱슜)떂 뜒遺꾩뿉 蹂몄씤 씠 똻쓣 솢슜빐 吏遺꾪븳 엯젰媛 泥댄겕 肄붾뱶뱾쓣
긽떦 遺遺 留먮걫엳 嫄룹뼱궪닔 엳뿀떎.