Q&A
- FindComponent 좀 보아 주세요
var dc_name : string;
dc_name1 : string;
dcno : string;
bname, wname, mname,bgname,bseqn : TEdit;
begin
if key = vk_return then begin
dc_name := TEdit(Sender).name; //컴포넌트이름 ac_sq01
dc_name1 := TEdit(Sender).Text; //컴포넌트 입력값1234, 23655 번호
dcno := copy(dc_name, 6, 2); //컴포넌트이름의 뒤에 숫자 01, 03,15, 20
bname := findcomponent('dc_nm' + dcno)as TEdit; //폼의 dc_nm01 의조건
을 가져 오겠죠
bname.Text := fieldbyname('sh_nm01').asstring;
//위의 fieldbyname('sh_nm01').asstring 에는 분명히 값이 있는데 폼의 dc_nm01
에는 값이 나타나지 않습니다. 이런 고수님들 아침부터 지금까지 헤메고 있습
니다 왜그런가요? 아래 구문들도 마찬가지 쿼리의 필드에는 값이 있는데,
폼에는 않 나타납니다. 고수님들 델가족여러분 미치겠습니다.
도와 주십시요. 꾸~벅~
wname := findcomponent('dc_wt' + dcno)as TEdit;
wname.Text := fieldbyname('sh_wrt').asstring;
mname := findcomponent('dc_mk' + dcno)as TEdit;
mname.Text := fieldbyname('sh_mker').asstring;
bgname := findcomponent('dc_dn' + dcno)as TEdit;
bgname.Text := '대출완료';
dc_name1 : string;
dcno : string;
bname, wname, mname,bgname,bseqn : TEdit;
begin
if key = vk_return then begin
dc_name := TEdit(Sender).name; //컴포넌트이름 ac_sq01
dc_name1 := TEdit(Sender).Text; //컴포넌트 입력값1234, 23655 번호
dcno := copy(dc_name, 6, 2); //컴포넌트이름의 뒤에 숫자 01, 03,15, 20
bname := findcomponent('dc_nm' + dcno)as TEdit; //폼의 dc_nm01 의조건
을 가져 오겠죠
bname.Text := fieldbyname('sh_nm01').asstring;
//위의 fieldbyname('sh_nm01').asstring 에는 분명히 값이 있는데 폼의 dc_nm01
에는 값이 나타나지 않습니다. 이런 고수님들 아침부터 지금까지 헤메고 있습
니다 왜그런가요? 아래 구문들도 마찬가지 쿼리의 필드에는 값이 있는데,
폼에는 않 나타납니다. 고수님들 델가족여러분 미치겠습니다.
도와 주십시요. 꾸~벅~
wname := findcomponent('dc_wt' + dcno)as TEdit;
wname.Text := fieldbyname('sh_wrt').asstring;
mname := findcomponent('dc_mk' + dcno)as TEdit;
mname.Text := fieldbyname('sh_mker').asstring;
bgname := findcomponent('dc_dn' + dcno)as TEdit;
bgname.Text := '대출완료';
2
COMMENTS
-
-
with문 속에다 넣으면 폼의 FindComponent메소드가 호출되는 것이 아니라
Query1의 FindComponent가 실행되겠죠. 그래서 폼의 컴포넌트를 못찾죠. Query1에서
찾으니까...
with Query1 do
begin
...
Self.FindComponent(...);
// 이런식으로 Self인자를 써서 폼의 FindComponent를 호출해야죠...
...
end;
초보 wrote:
> 초보 wrote:
> > var dc_name : string;
> > dc_name1 : string;
> > dcno : string;
> > bname, wname, mname,bgname,bseqn : TEdit;
> > begin
> > if key = vk_return then begin
> > dc_name := TEdit(Sender).name; //컴포넌트이름 ac_sq01
> > dc_name1 := TEdit(Sender).Text; //컴포넌트 입력값1234, 23655 번호
> > dcno := copy(dc_name, 6, 2); //컴포넌트이름의 뒤에 숫자 01, 03,15, 20
> >
> >
> > bname := findcomponent('dc_nm' + dcno)as TEdit; //폼의 dc_nm01 의조건
> > 을 가져 오겠죠
> > bname.Text := fieldbyname('sh_nm01').asstring;
> > //위의 fieldbyname('sh_nm01').asstring 에는 분명히 값이 있는데 폼의 dc_nm01
> > 에는 값이 나타나지 않습니다. 이런 고수님들 아침부터 지금까지 헤메고 있습
> > 니다 왜그런가요? 아래 구문들도 마찬가지 쿼리의 필드에는 값이 있는데,
> > 폼에는 않 나타납니다. 고수님들 델가족여러분 미치겠습니다.
> > 도와 주십시요. 꾸~벅~
> >
> > wname := findcomponent('dc_wt' + dcno)as TEdit;
> > wname.Text := fieldbyname('sh_wrt').asstring;
> > mname := findcomponent('dc_mk' + dcno)as TEdit;
> > mname.Text := fieldbyname('sh_mker').asstring;
> > bgname := findcomponent('dc_dn' + dcno)as TEdit;
> > bgname.Text := '대출완료';
>
> 으아 힘들당....
> 보니깐요 Findcomponent 함수는
> With Query1 do begin
>
> end; 이런 With문 속에서는 먹지를 않더라고요... 왠지는 몰겠어요.조 함수를
> 위드문속에 가두면 읽지를 못합니다.
> 델가족 여러분 참고 하세요. 하루가 너무 아깝당...으 머리야...
(NOTICE) You must be logged in to comment on this post.
-
- 궁금이..
- •
- 2001.03.13 14:53
- 1 COMMENTS
- /
- 0 LIKES
-
김성은•2001.03.17 03:00궁금이.. wrote: > CrateOleObject를 이용해서 엑셀을 열어 excel에서 1행 ,2행, 3행, 6행을 선택하여 > ...
-
- hee
- •
- 2001.03.13 04:07
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.03.13 04:25안녕하세요. 최용일입니다. 팁모아나 Q&A에서 검색해보시면 답이 있습니다. ^^ 항상 즐코하세요... ...
-
- 델초짜
- •
- 2001.03.13 04:01
- 1 COMMENTS
- /
- 0 LIKES
-
노가다•2001.03.13 22:44델초짜 wrote: > TAdvcombobox 와 TAdvEdit랑 TAdvMaskEdit 콤포넌트를 사용하려구 콤포넌트를 인스톨 시...
-
- HALOSKY
- •
- 2001.03.13 03:15
- 1 COMMENTS
- /
- 0 LIKES
-
맨~•2001.03.13 04:05HALOSKY wrote: > 여기서 많은 도움을 받고있는 델피언입니다! > 다름이 아니라 제목과 같이 퍼스널 오라...
-
- 컴사랑
- •
- 2001.03.13 03:04
- 1 COMMENTS
- /
- 0 LIKES
-
맨~•2001.03.13 03:59컴사랑 wrote: > DBGrid 에 있는 칼럼 명에 마우스를 클릭하면, 컬럼명에 따라 sort 시키 > 려고 합니다....
-
- 델바보
- •
- 2001.03.13 02:36
- 1 COMMENTS
- /
- 0 LIKES
-
바보감자•2001.03.13 03:36델바보 wrote: > 특정한 라인에 특정한 칼럼의 값만 얻어 낼수 없나요? > 예를들어 장부 프로그램에서 맨...
-
- 정병태
- 2001.03.13 02:27
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.03.13 02:10
- 2 COMMENTS
- /
- 0 LIKES
var dc_name : string; dc_name1 : string; dcno : string; bname, wname, mname,bgname,bseqn : TEdit; begin if key = vk_return then begin dc_name := TEdit(Sender).name; //컴포넌트이름 ac_sq01 dc_name1 := TEdit(Sender).Text; /...-
초보•2001.03.13 06:14초보 wrote: > var dc_name : string; > dc_name1 : string; > dcno : string; > bname, w...
-
kylix•2001.03.13 07:58with문 속에다 넣으면 폼의 FindComponent메소드가 호출되는 것이 아니라 Query1의 FindComponent가 실...
-
- 김종선
- 2001.03.13 02:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 김동수
- •
- 2001.03.13 01:58
- 2 COMMENTS
- /
- 0 LIKES
-
김동수•2001.03.13 02:4311
-
초보왕•2001.03.13 02:19김동수 wrote: > 내용은 다음과 같습니다. > 넘 궁금해서리...자세한건 밑에 보시면 있습니다. > SELECT...
-
- 초보왕
- •
- 2001.03.13 14:59
- 4 COMMENTS
- /
- 0 LIKES
-
맨~•2001.03.13 14:59초보왕 wrote: > 여러건의 문장을 insert하려고 합니다. > 다음과같이 > > sql := 'insert into a va...
-
초보왕•2001.03.13 15:00맨~ wrote: > 초보왕 wrote: > > 여러건의 문장을 insert하려고 합니다. > > 다음과같이 > > > > sq...
-
맨~•2001.03.13 15:00초보왕 wrote: > 맨~ wrote: > > 초보왕 wrote: > > > 여러건의 문장을 insert하려고 합니다. > > > 다...
-
초보왕•2001.03.13 19:51.
-
- chobo
- •
- 2001.03.13 01:45
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.03.13 04:29안녕하세요. 최용일입니다. ManualFloat메소드를 사용하세요... MyDockingForm.ManualFloat( Rect(...
-
- 팅이
- •
- 2001.03.13 01:39
- 4 COMMENTS
- /
- 0 LIKES
-
ocx를 이용하세요(내•2001.12.19 19:26팅이 wrote: > 델파이로 제작한 온라인 채팅식의 어플리케이션이 있는데 웹에서 불러올 방법이 없습니다. ...
-
화랑•2001.03.13 01:41팅이 wrote: > 델파이로 제작한 온라인 채팅식의 어플리케이션이 있는데 웹에서 불러올 방법이 없습니다. ...
-
팅이•2001.03.13 01:44화랑 wrote: > 팅이 wrote: > > 델파이로 제작한 온라인 채팅식의 어플리케이션이 있는데 웹에서 불러올 ...
-
화랑•2001.03.14 02:43팅이 wrote: > 화랑 wrote: > > 팅이 wrote: > > > 델파이로 제작한 온라인 채팅식의 어플리케이션이 있...
-
- Freeman
- •
- 2001.03.13 01:28
- 1 COMMENTS
- /
- 0 LIKES
-
BENGI•2001.03.14 00:15Freeman wrote: > ListView에서 프린트를 할려구 합니다. > 저는 이제 막 델파이를 시작 했는데... > 잘...
-
- 델파이초보
- •
- 2001.03.13 01:24
- 1 COMMENTS
- /
- 0 LIKES
-
화랑•2001.03.13 01:37델파이초보 wrote: > 안냥하세요.... > 다른게 아니고 제목 그대로 입니다.. > http 을 이용하여 클라이...
-
- 이기석
- •
- 2001.03.13 01:14
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.03.13 04:33안녕하세요. 최용일입니다. TBitmap객체를 이용하시면 되겠는데요. 거기에 보시면 Canvas프라퍼티가 있...
-
- 제이
- •
- 2001.03.13 00:35
- 2 COMMENTS
- /
- 0 LIKES
-
초보왕•2001.03.13 01:33제이 wrote: > 오라클의 PL/SQL에서 update문을 쓰려고 합니다. > > ================================...
-
뻐록이•2001.03.13 01:09제이 wrote: > 오라클의 PL/SQL에서 update문을 쓰려고 합니다. > > ================================...
-
- kiwi
- 2001.03.13 00:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- 2001.03.13 00:03
- 0 COMMENTS
- /
- 0 LIKES
-
- raeganja
- 2001.03.12 23:42
- 0 COMMENTS
- /
- 0 LIKES
> var dc_name : string;
> dc_name1 : string;
> dcno : string;
> bname, wname, mname,bgname,bseqn : TEdit;
> begin
> if key = vk_return then begin
> dc_name := TEdit(Sender).name; //컴포넌트이름 ac_sq01
> dc_name1 := TEdit(Sender).Text; //컴포넌트 입력값1234, 23655 번호
> dcno := copy(dc_name, 6, 2); //컴포넌트이름의 뒤에 숫자 01, 03,15, 20
>
>
> bname := findcomponent('dc_nm' + dcno)as TEdit; //폼의 dc_nm01 의조건
> 을 가져 오겠죠
> bname.Text := fieldbyname('sh_nm01').asstring;
> //위의 fieldbyname('sh_nm01').asstring 에는 분명히 값이 있는데 폼의 dc_nm01
> 에는 값이 나타나지 않습니다. 이런 고수님들 아침부터 지금까지 헤메고 있습
> 니다 왜그런가요? 아래 구문들도 마찬가지 쿼리의 필드에는 값이 있는데,
> 폼에는 않 나타납니다. 고수님들 델가족여러분 미치겠습니다.
> 도와 주십시요. 꾸~벅~
>
> wname := findcomponent('dc_wt' + dcno)as TEdit;
> wname.Text := fieldbyname('sh_wrt').asstring;
> mname := findcomponent('dc_mk' + dcno)as TEdit;
> mname.Text := fieldbyname('sh_mker').asstring;
> bgname := findcomponent('dc_dn' + dcno)as TEdit;
> bgname.Text := '대출완료';
으아 힘들당....
보니깐요 Findcomponent 함수는
With Query1 do begin
end; 이런 With문 속에서는 먹지를 않더라고요... 왠지는 몰겠어요.조 함수를
위드문속에 가두면 읽지를 못합니다.
델가족 여러분 참고 하세요. 하루가 너무 아깝당...으 머리야...