Q&A

  • List index out of bound(3)...에러..아시는분~~~
procedure Tfrm_GD01.edtSanoKeyPress(Sender: TObject; var Key: Char);

begin

if key = #13 then begin

if not Query1.locate('INSANO',Trim(edtSano.Text), [lopartialkey]) then begin

if Trim(edtSano.Text)='' then begin

frm_IB00A := Tfrm_IB00A.Create(Application);

frm_IB00A.vSW := '2';

frm_IB00A.ShowModal;

:

:

:vSW는 frm_IB00A폼의 변수입니다.



사번 에디트컴포넌트의 keypress이벤트입니다.

문제는 frm_IB00A폼이 ShowModal될때 List index out of bound(3)에러가 나는데.....

아시는분점 답좀 주세요...ㅠ.ㅠ

1  COMMENTS
  • Profile
    박장용 2001.07.11 23:06
    List index out of bound에러는 여기 예시하신 코딩으로는 알수가 없습니다..

    아마도 frm_IB00A폼이 열릴때 formshow나 formActive 이벤트 부분에..

    즉, 폼이 열릴때 사용자 조작없이 수행되는 작업중에 콤보박스나 리스트박스 처리

    되는쪽에서 나오는 오류라고 생각되어 짐니다..

    그부분을 살펴 보십시오.. 디버그를 해보시면 오류가 발생하는 부분을

    알수 있으리라 예상이 됩니다..

    그럼 이만..



    궁구미 wrote:

    > procedure Tfrm_GD01.edtSanoKeyPress(Sender: TObject; var Key: Char);

    > begin

    > if key = #13 then begin

    > if not Query1.locate('INSANO',Trim(edtSano.Text), [lopartialkey]) then begin

    > if Trim(edtSano.Text)='' then begin

    > frm_IB00A := Tfrm_IB00A.Create(Application);

    > frm_IB00A.vSW := '2';

    > frm_IB00A.ShowModal;

    > :

    > :

    > :vSW는 frm_IB00A폼의 변수입니다.

    >

    > 사번 에디트컴포넌트의 keypress이벤트입니다.

    > 문제는 frm_IB00A폼이 ShowModal될때 List index out of bound(3)에러가 나는데.....

    > 아시는분점 답좀 주세요...ㅠ.ㅠ