Q&A
- FindComponent의 결과가 이상하다?!
FindComponent를 사용하여 해당컴포를 찾는 작업을 하다가 이상해서 질문올립니다.
CurPanel:TPanel;
ⓐ
for i:=0 to Self.ComponentCount-1 do begin
if (Self.Components[i] is TPanel) then
if (Self.Components[i] as TPanel).Name='T'+Edit1.Text then
begin
CurPanel:= (Self.Components[i] as TPanel);
Exit;
end;
end;
ⓑ
CurPanel:= TPanel(FindComponent('T'+Edit1.Text)));
위에서 ⓐ는 잘 작동을 하는데 ⓑ로 하면 Access Violation이 일어납니다.
왜 그렇죠?
CurPanel:TPanel;
ⓐ
for i:=0 to Self.ComponentCount-1 do begin
if (Self.Components[i] is TPanel) then
if (Self.Components[i] as TPanel).Name='T'+Edit1.Text then
begin
CurPanel:= (Self.Components[i] as TPanel);
Exit;
end;
end;
ⓑ
CurPanel:= TPanel(FindComponent('T'+Edit1.Text)));
위에서 ⓐ는 잘 작동을 하는데 ⓑ로 하면 Access Violation이 일어납니다.
왜 그렇죠?
2
COMMENTS
-
-
안정한 wrote:
> 박성훈 wrote:
> > FindComponent를 사용하여 해당컴포를 찾는 작업을 하다가 이상해서 질문올립니다.
> >
> > CurPanel:TPanel;
> > > > begin
> > CurPanel:= (Self.Components[i] as TPanel);
> > Exit;
> > end;
> > end;
> >
> > ⓑ
> > CurPanel:= TPanel(FindComponent('T'+Edit1.Text)));
> > ⓐ
> > for i:=0 to Self.ComponentCount-1 do begin
> > if (Self.Components[i] is TPanel) then
> > if (Self.Components[i] as TPanel).Name='T'+Edit1.Text then
> >
> > 위에서 ⓐ는 잘 작동을 하는데 ⓑ로 하면 Access Violation이 일어납니다.
> > 왜 그렇죠?
>
> 답변] 'T'를 왜 붙이죠
>
> CurPanel := TPanel(FindComponent(Edit1.Text));
> CurPanel.caption := 'Ok';
> 이렇게 해보시죠
> FindComponent에 parameter는 Component Name즉 String입니다.
>
> Form에 있는 Panel의 이름이 Tpanel이면 'T'를 붙이셔도 되지만...
>
'T'를 붙인 이유는 좌석(Table)을 나타내는 패널이라는 의미에서입니다. 클래스에 붙이는 'T'는 절대 아닙니다.
(NOTICE) You must be logged in to comment on this post.
-
- 황선희
- 1999.12.02 01:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 노유승
- 1999.12.02 01:16
- 0 COMMENTS
- /
- 0 LIKES
-
- 노유승
- •
- 1999.12.02 01:02
- 1 COMMENTS
- /
- 0 LIKES
-
전철호•1999.12.03 00:49노유승 wrote: > MaskEdit를 이용해서 주민등록 번호나 사업자 등록번호등을 입력 받는데 > 영문으로 되...
-
- 한수현
- 1999.12.02 01:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 김석수
- •
- 1999.12.01 23:41
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.12.01 23:56김석수 wrote: > 먼저 지난번에 답장 주신 임형호님, 안재현님 대단히 고맙습니다. > 데이타베이스 연결...
-
- 김매경
- •
- 1999.12.01 22:55
- 2 COMMENTS
- /
- 0 LIKES
-
신호성•1999.12.02 00:18김매경 wrote: > 폼 a,b,c가 있는데요... > > 폼 a는... 폼b에서 Create시킬때도 있고, 폼C에서 Create...
-
손창근•1999.12.01 23:04안녕하세요... 오공이 입니다. 질문의 요지는 결국 a폼을 어디서 불렀는지을 알려고 하는거 같은데.... ...
-
- 심형성
- •
- 1999.12.01 22:20
- 1 COMMENTS
- /
- 0 LIKES
-
김영대•1999.12.01 23:57심형성 wrote: > 델파이에서 폼 모양을 바꿀 수 있습니까? > 가르쳐 주십시오...... unit Unit1; i...
-
- 윤희정
- 1999.12.01 21:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 황선희
- •
- 1999.12.01 20:32
- 3 COMMENTS
- /
- 0 LIKES
-
손창근•1999.12.01 22:14안녕하세요... 오공이 입니다... DB을 무엇으로 쓰고 계신지는 잘 모르지만.... Select을 할때 구분하...
-
황선희•1999.12.01 23:36DB는 Informix를 쓰고 있습니다. 손창근 wrote: > 안녕하세요... > 오공이 입니다... > > DB...
-
손창근•1999.12.02 00:50안녕하세요. 오공이 입니다. 아이고.... 저는 Informix을 쓰지 않아서 ... 하지만.... Informix에서...
-
- 통신초짜
- 1999.12.01 20:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 이정선
- •
- 1999.12.01 20:04
- 1 COMMENTS
- /
- 0 LIKES
-
이현신•1999.12.02 00:08이정선 wrote: > 각 신문사 실시간 뉴스 Check하여 각 신문사사이트의 헤드라인 뉴스(HTML타이틀)만 > 뿌...
-
- 강태완
- •
- 1999.12.01 19:49
- 1 COMMENTS
- /
- 0 LIKES
-
황선희•1999.12.01 20:28가장 간단한 방법은 미리보기에서 Save 버튼이 보이실 겁니다. 저장하실 때 Text File을 선택하시면 ...
-
- 문영미
- 1999.12.01 18:57
- 0 COMMENTS
- /
- 0 LIKES
-
- 박성훈
- •
- 1999.12.01 18:55
- 2 COMMENTS
- /
- 0 LIKES
FindComponent를 사용하여 해당컴포를 찾는 작업을 하다가 이상해서 질문올립니다. CurPanel:TPanel; ⓐ for i:=0 to Self.ComponentCount-1 do begin if (Self.Components[i] is TPanel) then if (Self.Components[i] as TPanel).Name='T'...-
안정한•1999.12.02 03:45박성훈 wrote: > FindComponent를 사용하여 해당컴포를 찾는 작업을 하다가 이상해서 질문올립니다. > ...
-
통신초짜•1999.12.02 22:22안정한 wrote: > 박성훈 wrote: > > FindComponent를 사용하여 해당컴포를 찾는 작업을 하다가 이상해서 ...
-
- 이정환
- •
- 1999.12.01 18:48
- 3 COMMENTS
- /
- 0 LIKES
-
bluechip•1999.12.02 09:07내용의 이해가 잘 되질 않지만 Destroy에 정의한 명령이 제대로 먹질 않아서 문제가 발생한 경우라면 혹...
-
이정환•1999.12.02 21:19먼저 답변 감사합니다. 제가 먼저 문의 드린 내용이 불충분해서 다시 보충해서 질문 드리겠습니다. ...
-
bluechip•1999.12.03 06:55안녕하세요 !! 제가 이 글을 올릴때 쯤이면 이미 해결 하셨을지도 모르겠네요.. activeX 폼을 부른 ...
-
- 장철진
- 1999.12.01 11:00
- 0 COMMENTS
- /
- 0 LIKES
-
- andy
- •
- 1999.12.01 09:39
- 1 COMMENTS
- /
- 0 LIKES
-
안성용•1999.12.02 03:52Data Type의 문제입니다. 저도 MS-SQL 6.5 에서 동일한 문제로 고민을 많이 했습니다. 결론은 DB의 Dat...
-
- 나원용
- 1999.12.01 09:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 궁금증
- •
- 1999.12.01 07:07
- 2 COMMENTS
- /
- 0 LIKES
-
김영해•1999.12.01 23:23궁금증 wrote: > 안녕하세요. > 저는 현제 Delphi 4.0을 사용하고 있으며 Paradox DB를 활용하여 현재 ...
-
혀노•1999.12.01 19:26이게 도움이 될런지 모르겠네요? TempQuery사용하기 선언부 var qryTemp : TQuery; begin qry...
-
- 갤럭시
- •
- 1999.12.01 05:06
- 1 COMMENTS
- /
- 0 LIKES
-
신호성•1999.12.02 00:30갤럭시 wrote: > 안녕하세요... > 궁금한 질문 하나 던집니다.. > > edit에서 입력받은 숫자에 대해서...
> FindComponent를 사용하여 해당컴포를 찾는 작업을 하다가 이상해서 질문올립니다.
>
> CurPanel:TPanel;
>
> ⓐ
> for i:=0 to Self.ComponentCount-1 do begin
> if (Self.Components[i] is TPanel) then
> if (Self.Components[i] as TPanel).Name='T'+Edit1.Text then
> begin
> CurPanel:= (Self.Components[i] as TPanel);
> Exit;
> end;
> end;
>
> ⓑ
> CurPanel:= TPanel(FindComponent('T'+Edit1.Text)));
>
> 위에서 ⓐ는 잘 작동을 하는데 ⓑ로 하면 Access Violation이 일어납니다.
> 왜 그렇죠?
답변] 'T'를 왜 붙이죠
CurPanel := TPanel(FindComponent(Edit1.Text));
CurPanel.caption := 'Ok';
이렇게 해보시죠
FindComponent에 parameter는 Component Name즉 String입니다.
Form에 있는 Panel의 이름이 Tpanel이면 'T'를 붙이셔도 되지만...