//입력확인

for i:=0 to self.ComponentCount-1 do

begin

if (self.Components[i]) is TEdit and

((self.Components[i] as TEdit).Tag=1) then

begin

if Length((self.Components[i] as TEdit).Text)<=0 then

begin

showmessage('입력되지않은곳이 있습니다');

(self.Components[i] as TEdit).SetFocus;

Exit;

end

else main.lotno_sh.Text:=lotno.Text+'-'+lotse.Text;

end;

if (self.Components[i]) is TCombobox and

((self.Components[i] as TCombobox).Tag=1) then

begin

if Length((self.Components[i] as TCombobox).Text)<=0 then

begin

showmessage('입력되지않은곳이 있습니다');

(self.Components[i] as TCombobox).SetFocus;

Exit;

end

else

begin

//메인의 텍스트에 입력값전달

main.devicesel_sh.Text:=devicesel.Text;

main.interval_sh.Text:=interval.Text;

main. chips_sh.Text:=chips.Text;

main.machine_sh.Text:=machine.Text;

close;

end;

end;

end;

//측정항목 입력확인

if not(po_check.Checked or color_check.Checked or vr_check.Checked

or vf_check.Checked or thy_check.Checked) then

begin

showmessage('야 하나 찍어.. ');

po_check.SetFocus;

Exit;

end



여기서 위에 for문에 해당하는것은 다 입려하고 밑에 체크박스는 입력을 안했을때 Ok버튼을 누르면 '야 하나찍어'라는 메세지가 나와서 확인버튼을 누르면 그냥 빠져나와버리는데 어디가 잘못된건지..

알려주세여...