안녕하세요. 저는 강민정이라고 하고 델파이를 다룬지 얼마 안되서 모르는 것이

너무 많습니다. 제발 도와주세요~

지금 짜고 있는 프로그램은 명함관리 프로그램인데 그 중에서 우편번호를 불러오는 프로시져에서 에러가 났습니다.

이 프로시져의 역할은 우편번호를 검색한 다음 OK버튼을 누르면 처음 우편번호를 검색했던 폼으로 돌아가 우편번호와 해당 주소를 입력하는 것입니다.

그런데 우편번호를 부르는 폼이 3개나 되서 어느 폼이 이 프로시져를 불렀는지

구별하기 위해서 flag를 두었고 각 폼에서 우편번호를 부를때 flag를 true를 시킨후 우편번호 폼에서 Ok를 누르면 어느 flag가 true인지 확인해서 해당 폼으로 자료를 넘기게 하고 싶었습니다.

그런데 실행을 시켜보면 멘처음에 있는 "frm_private.zipFalgHP와 ZipFlafCP"

를 사용했을때는 에러가 안나는데 나머지 부분에서는 Accedd Violation 에러가 납니다. 도대체 이유를 모르겠어요..

흑흑.. 델파이 왕초보라 모르는 것이 너무 많습니다. 제발 도와주세요..



코딩은 다음과 같습니다.



==========================================================================



procedure Tfrm_zip.btn_OKZClick(Sender: TObject);

begin

if frm_private.zipFlagHP = True then

begin

frm_private.add_hZipP.Text := DBEdt_PostNo.Text;

frm_Private.zipFlagHP := False;

btn_ExitZClick(sender);

frm_private.add_haddrP.text := DBEdt_Addr.Text;

end

else if frm_private.zipFlagCP = True then

begin

frm_private.add_cZipP.Text := DBEdt_PostNo.Text;

frm_Private.zipFlagcP := False;

btn_ExitZClick(sender);

frm_private.add_caddrP.text := DBEdt_Addr.Text;

end

else if frm_work.zipFlagCW = True then

begin

frm_work.add_cZipW.Text := DBEdt_PostNo.Text;

frm_work.zipFlagcW := False;

btn_ExitZClick(sender);

frm_work.add_caddrW.text := DBEdt_Addr.Text;

end

else if frm_work.zipFlagHW= True then

begin

frm_work.add_hZipW.Text := DBEdt_PostNo.Text;

frm_work.zipFlagHW := False;

btn_ExitZClick(sender);

frm_work.add_haddrW.text := DBEdt_Addr.Text;

end;

end;