ZIP_MAIN := TZIP_MAIN.Create(ZIP_MAIN); <= 이부분에서 에러



=>ZIP_MAIN := TZIP_MAIN.Create(nil); <= 이부분에서 에러

or

=>ZIP_MAIN := TZIP_MAIN.Create(self); <= 이부분에서 에러

로 해보십시오.







궁금녀 wrote:

> 우편번호 검색 폼을 불러오기 위해 만들어놓은 Procedure이구요..

>

> procedure ZipCode_Call( Var ZIP_CODE, ADDRESS : STRING; Focus_JUSO2 :TFlatEdit );

> begin

> with ZIP_MAIN Do Begin

> Try

> ZIP_MAIN := TZIP_MAIN.Create(ZIP_MAIN); <= 이부분에서 에러

> ZIP_MAIN.ShowModal;

> if ZIP_MAIN.Tag = 2 THEN Begin

> ZIP_CODE := CODE;

> ADDRESS := ADDR;

> Focus_JUSO2.SetFocus;

> End; // if 검색된 우편번호가 있을때

> Finally

> ZIP_MAIN.FREE;

> End;

> End; // With ZIP_MAIN Do

> End;

>

> 우편번호 검색 폼(ZIP_MAIN)을 불러와서 동을 입력해서 검색하면 주소와 우편번호를

> 돌려줘서 그 값이 우편번호 검색 폼을 불렀던 곳에 적용되는 것입니다.

> 한 번은 검색이 되구요 두번째 검색하면 위에서 에러가 납니다.

> 그래서 프로그램을 종료하고 다시 실행시키면 한 번은 검색이 또 됩니다.

> 어떻게 된 것인지..??