Q&A
- Re: 제발 좀 봐주세여...컴포넌트 에러...
For문을 사용하셨군요. 그래서 오류가 발생한것입니다.
소스를 잘 보시면요...
처음에 For가 시작될때 ControlCount가 10개라고 한경우
Controls[t].free가 수행되고 나면 하나씩 ControlCount가 줄어들게 됩니다.
하지만 For문은 10번을 끝까지 수행하게 되지요..
그러다 어느정도 지나게 되면 Controls[2]이라고 한다면 오류가 나겠지요...
Control의 수는 free에 의해서 2개보다 적은데요...
이런 경우
repeat문이나 while문에 의한 조건 반복문을 권장하고 싶습니다.
수고하십시오.
왕초보 wrote:
> 프로그램을 하나 짜고 있습니다.
> 그 프로그램 내부에...컴포넌트를 생성하고...선택후 삭제하고...
> 머 이런 기능이 있습니다.
> 그런데....
> 컴포넌트를 삭제하면..에러가 납니다.
> list index out of bound(2) 머 이런식으로....
>
> 아래가 그 일부분의 소스입니다.
>
> if Estr = 9999 then
> for t := 0 to pan_map.ControlCount - 1 do
> begin
> if pan_map.Controls[t] is TDandaio then
> if pan_map.Controls[t].name = some then
> pan_map.Controls[t].free;
> end
> else
> for t := 0 to pan_map.ControlCount -1 do
> begin
> if pan_map.Controls[t] is TDandaio then
> if (pan_map.Controls[t] as TDandaio).name = some then
> begin
> (pan_map.Controls[t] as TDandaio).left := UnLocateEast(EStr)- 80;
> (pan_map.Controls[t] as TDandaio).top := UnLocateNorth(NStr) - 60;
> (pan_map.Controls[t] as TDandaio).progress := Forc;
> end;
> end;
>
> 제발 함 보시고...답변좀 올려주세요...
> 그럼...이만.
>
소스를 잘 보시면요...
처음에 For가 시작될때 ControlCount가 10개라고 한경우
Controls[t].free가 수행되고 나면 하나씩 ControlCount가 줄어들게 됩니다.
하지만 For문은 10번을 끝까지 수행하게 되지요..
그러다 어느정도 지나게 되면 Controls[2]이라고 한다면 오류가 나겠지요...
Control의 수는 free에 의해서 2개보다 적은데요...
이런 경우
repeat문이나 while문에 의한 조건 반복문을 권장하고 싶습니다.
수고하십시오.
왕초보 wrote:
> 프로그램을 하나 짜고 있습니다.
> 그 프로그램 내부에...컴포넌트를 생성하고...선택후 삭제하고...
> 머 이런 기능이 있습니다.
> 그런데....
> 컴포넌트를 삭제하면..에러가 납니다.
> list index out of bound(2) 머 이런식으로....
>
> 아래가 그 일부분의 소스입니다.
>
> if Estr = 9999 then
> for t := 0 to pan_map.ControlCount - 1 do
> begin
> if pan_map.Controls[t] is TDandaio then
> if pan_map.Controls[t].name = some then
> pan_map.Controls[t].free;
> end
> else
> for t := 0 to pan_map.ControlCount -1 do
> begin
> if pan_map.Controls[t] is TDandaio then
> if (pan_map.Controls[t] as TDandaio).name = some then
> begin
> (pan_map.Controls[t] as TDandaio).left := UnLocateEast(EStr)- 80;
> (pan_map.Controls[t] as TDandaio).top := UnLocateNorth(NStr) - 60;
> (pan_map.Controls[t] as TDandaio).progress := Forc;
> end;
> end;
>
> 제발 함 보시고...답변좀 올려주세요...
> 그럼...이만.
>
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 김범수
- 2001.01.31 23:26
- 0 COMMENTS
- /
- 0 LIKES
-
-
박서규•2001.02.01 02:01
-
후•2001.02.01 02:12
-
갱민이•2001.02.01 03:23
-
후•2001.02.01 06:05
-
hbesthee•2001.02.06 23:41
-
-
- 김범수
- •
- 2001.01.31 23:07
- 3 COMMENTS
- /
- 0 LIKES
-
아폴론•2001.02.01 00:26김범수 wrote: > 김범수 wrote: > quickreport에서 qrdbtext가 출력이 안됩니다. > 물론 dataset과 da...
-
임재영•2001.02.01 00:031. 출력품이 자동출력이면 나오지 않을때가있다? : 이부분은 델파이 버그인지 (퀵리포트)는 잘 모르겠...
-
임재영•2001.02.01 00:031. 출력품이 자동출력이면 나오지 않을때가있다? : 이부분은 델파이 버그인지 (퀵리포트)는 잘 모르겠...
-
- 윤광석
- 2001.01.31 22:28
- 0 COMMENTS
- /
- 0 LIKES
-
- peritus
- •
- 2001.01.31 22:25
- 1 COMMENTS
- /
- 0 LIKES
-
peritus•2001.02.01 07:58이것은 델파이로 해결할 문제가 아니라 해당 홈페이지 URL에서 처리해야하는 문제임을 알게 되었으며 해결...
-
- 맨
- 2001.01.31 22:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 황장군
- 2001.02.01 21:57
- 0 COMMENTS
- /
- 0 LIKES
-
- 질문맨
- 2001.01.31 21:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 김재억
- •
- 2001.01.31 20:07
- 1 COMMENTS
- /
- 0 LIKES
For문을 사용하셨군요. 그래서 오류가 발생한것입니다. 소스를 잘 보시면요... 처음에 For가 시작될때 ControlCount가 10개라고 한경우 Controls[t].free가 수행되고 나면 하나씩 ControlCount가 줄어들게 됩니다. 하지만 For문은 10번을 ...-
윤광석•2001.01.31 21:58김재억 wrote: > For문을 사용하셨군요. 그래서 오류가 발생한것입니다. > > 소스를 잘 보시면요... >...
-
- 나야
- 2001.01.31 19:44
- 0 COMMENTS
- /
- 0 LIKES
-
- aha
- •
- 2001.01.31 19:36
- 2 COMMENTS
- /
- 0 LIKES
-
몰러•2001.01.31 20:32먼저 서버를 실행하고 클라이언트로 접속을 하면 됩니다. 하나의 컴퓨터내부에서 사용할 경우에는 Clien...
-
aha•2001.01.31 22:10안녕하세요 아하입니다. 말씀하신데로 했는데도 안되는 군요. 제컴으로도 해보고, client, server나누어...
-
- 이성존
- •
- 2001.01.31 19:16
- 1 COMMENTS
- /
- 0 LIKES
-
hbesthee•2001.02.02 01:26IHTMLDocument2 에보면, Get_cookie 와 Set_cookie 메소드가 있습니다. 참고하세요 ^^; 이성존 wrote: ...
-
- sonwow
- •
- 2001.01.31 19:14
- 4 COMMENTS
- /
- 0 LIKES
-
김광섭•2001.02.01 00:32sonwow wrote: > key press.............. > if key = #13 then > key := #0; > key down............
-
sonwow•2001.01.31 20:27procedure TForm1.gridKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if K...
-
바보감자•2001.01.31 19:49sonwow wrote: > key press.............. > if key = #13 then > key := #0; > key down............
-
sonwow•2001.01.31 20:28바보감자 wrote: > sonwow wrote: > > key press.............. > > if key = #13 then > > key :=...
-
- 박기현
- •
- 2001.01.31 19:09
- 1 COMMENTS
- /
- 0 LIKES
-
벌랜드/인푸라즈•2001.01.31 20:34예...최신버젼은 델파이 5 엔터프라이즈에디션구요..... 인프라이즈홈가시면 구입할수있고.. 가격은 560...
-
- sunny
- 2001.01.31 19:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 빙구
- 2001.01.31 19:03
- 0 COMMENTS
- /
- 0 LIKES
-
- aha
- •
- 2001.01.31 19:00
- 1 COMMENTS
- /
- 0 LIKES
-
yoo•2001.02.12 23:5110049 (WSAEADDRNOTAVAIL) [10049] Can't assign requested address. aha wrote: > 제목과 같습니다....
-
- 루단스
- •
- 2001.01.31 18:58
- 1 COMMENTS
- /
- 0 LIKES
-
이정훈•2001.02.13 03:52dcomcnfg에서 해당 DCOM의 인증수준을 "없음"으로 낮추고 해보십시요. 그 이전에 클라이언트가 서버에 log...
-
- 델초보..
- •
- 2001.01.31 18:43
- 4 COMMENTS
- /
- 0 LIKES
-
사발우성•2001.01.31 21:25^^;; 하여 모달폼을 여실때 show로 하시면 됨당....^^;; 구람 즐프여....^^;;
-
??•2001.01.31 19:36델초보.. wrote: > Form을 두개 띄웠을때 포커스를 두개의 form사이를 자유자제로 왔다갔다하게 > 하고...
-
김범수•2001.01.31 20:52form2.showmodal로 하면 두번째 화면이 클로즈 되지 않으면 앞화면에 포커스를 둘수가 없지요. 그래서 for...
-
김창환•2001.02.02 06:56김창환 : form1에서 form2 를 띄운후 form2 enent에서 form1.hide해보세요 그리고 form2에서 다시 form1...
-
- 버니
- 2001.01.31 18:42
- 0 COMMENTS
- /
- 0 LIKES
> For문을 사용하셨군요. 그래서 오류가 발생한것입니다.
>
> 소스를 잘 보시면요...
> 처음에 For가 시작될때 ControlCount가 10개라고 한경우
> Controls[t].free가 수행되고 나면 하나씩 ControlCount가 줄어들게 됩니다.
> 하지만 For문은 10번을 끝까지 수행하게 되지요..
> 그러다 어느정도 지나게 되면 Controls[2]이라고 한다면 오류가 나겠지요...
> Control의 수는 free에 의해서 2개보다 적은데요...
>
> 이런 경우
> repeat문이나 while문에 의한 조건 반복문을 권장하고 싶습니다.
> 수고하십시오.
>
> 왕초보 wrote:
> > 프로그램을 하나 짜고 있습니다.
> > 그 프로그램 내부에...컴포넌트를 생성하고...선택후 삭제하고...
> > 머 이런 기능이 있습니다.
> > 그런데....
> > 컴포넌트를 삭제하면..에러가 납니다.
> > list index out of bound(2) 머 이런식으로....
> >
> > 아래가 그 일부분의 소스입니다.
> >
> > if Estr = 9999 then
> > for t := 0 to pan_map.ControlCount - 1 do
> > begin
> > if pan_map.Controls[t] is TDandaio then
> > if pan_map.Controls[t].name = some then
> > pan_map.Controls[t].free;
> > end
> > else
> > for t := 0 to pan_map.ControlCount -1 do
> > begin
> > if pan_map.Controls[t] is TDandaio then
> > if (pan_map.Controls[t] as TDandaio).name = some then
> > begin
> > (pan_map.Controls[t] as TDandaio).left := UnLocateEast(EStr)- 80;
> > (pan_map.Controls[t] as TDandaio).top := UnLocateNorth(NStr) - 60;
> > (pan_map.Controls[t] as TDandaio).progress := Forc;
> > end;
> > end;
> >
> > 제발 함 보시고...답변좀 올려주세요...
> > 그럼...이만.
> >
for문을 아래와 같이 수정하며 error 발생하지 안을 것에요.
for t := pan_map.ControlCount - 1 downto 0 do
보통 컴포넌트 free하는 경우에 뒤에서 부터 해야지.
아니면 에러 발생할 것에요..
왜 그러가 하면 하나를 프리하면 컴포넌트 개수가 하나가 줄어서 개수가 9이 되고
시작위치 0이 됨
0 : 컴
1 : 컴
2 : 컴
3 : 컴
....
10 : 컴
처음 0번째 컴 Free하면
다음 상태로 변경됨
1 : 컴
2 : 컴
3 : 컴
4 : 컴
....
9 : 컴
그래서 10번 부터 free해야함...
0 : 컴
1 : 컴
2 : 컴
3 : 컴
....
9 : 컴