Q&A
- 폼없는 유닛...
아래 코딩은 fMenu1(차일드 폼입니다...)에서 콤보박스에 값을 때려 넣는
프로시져입니다...
콤보박스 이름을 변수로 받습니다...
근데 여러개의 차일드 폼에 똑같은 코딩이 들어 갑니다...
그래서, 걍~~ 폼 없는 유닛(사용자 정의 함수나 전역변수가 정의 되있습니다.)에다
이 프로시져를 함 넣어서 모든 폼에서 가져다 써볼라고 하는데
별짓을 해두 안되내요...
제가 넘 터무니 없는 생각을 했나요...
procedure TfMenu1.pSet_Name_Sido(strCombo:string); // 시도이름 세팅
var
i : word;
begin
if strCombo = '' then
Exit;
TComboBox(FindComponent(strCombo)).Clear;
for i := 0 to wCnt_Sigun - 1 do
begin
if recpSigun[i].strCode_Sigun = '00' then
TComboBox(FindComponent(strCombo)).Items.Add(recpSigun[i].strName_Sido);
end;
if TComboBox(FindComponent(strCombo)).Items.Count < 11 then
TComboBox(FindComponent(strCombo)).DropDownCount := TComboBox(FindComponent(strCombo)).Items.Count
else
TComboBox(FindComponent(strCombo)).DropDownCount := 10;
end;
프로시져입니다...
콤보박스 이름을 변수로 받습니다...
근데 여러개의 차일드 폼에 똑같은 코딩이 들어 갑니다...
그래서, 걍~~ 폼 없는 유닛(사용자 정의 함수나 전역변수가 정의 되있습니다.)에다
이 프로시져를 함 넣어서 모든 폼에서 가져다 써볼라고 하는데
별짓을 해두 안되내요...
제가 넘 터무니 없는 생각을 했나요...
procedure TfMenu1.pSet_Name_Sido(strCombo:string); // 시도이름 세팅
var
i : word;
begin
if strCombo = '' then
Exit;
TComboBox(FindComponent(strCombo)).Clear;
for i := 0 to wCnt_Sigun - 1 do
begin
if recpSigun[i].strCode_Sigun = '00' then
TComboBox(FindComponent(strCombo)).Items.Add(recpSigun[i].strName_Sido);
end;
if TComboBox(FindComponent(strCombo)).Items.Count < 11 then
TComboBox(FindComponent(strCombo)).DropDownCount := TComboBox(FindComponent(strCombo)).Items.Count
else
TComboBox(FindComponent(strCombo)).DropDownCount := 10;
end;
2
COMMENTS
-
-
정말 간단했군요...
역시 고수와 하수와 차이는 이런데서 나는 모양입니다...
정말 감사합니다...
답변 안해주셨음 하루종일 엉뚱한 짓만 할뻔했군요...
좋은 하루되세요...
p.s:혹시 Black}{all님과 어떤 연관이 있으신 분인가여?
블랙봉 wrote:
> 허접 wrote:
> > 아래 코딩은 fMenu1(차일드 폼입니다...)에서 콤보박스에 값을 때려 넣는
> > 프로시져입니다...
> > 콤보박스 이름을 변수로 받습니다...
> >
> > 근데 여러개의 차일드 폼에 똑같은 코딩이 들어 갑니다...
> > 그래서, 걍~~ 폼 없는 유닛(사용자 정의 함수나 전역변수가 정의 되있습니다.)에다
> > 이 프로시져를 함 넣어서 모든 폼에서 가져다 써볼라고 하는데
> > 별짓을 해두 안되내요...
> >
> > 제가 넘 터무니 없는 생각을 했나요...
> >
> > procedure TfMenu1.pSet_Name_Sido(strCombo:string); // 시도이름 세팅
> > var
> > i : word;
> > begin
> > if strCombo = '' then
> > Exit;
> >
> > TComboBox(FindComponent(strCombo)).Clear;
> >
> > for i := 0 to wCnt_Sigun - 1 do
> > begin
> > if recpSigun[i].strCode_Sigun = '00' then
> > TComboBox(FindComponent(strCombo)).Items.Add(recpSigun[i].strName_Sido);
> > end;
> >
> > if TComboBox(FindComponent(strCombo)).Items.Count < 11 then
> > TComboBox(FindComponent(strCombo)).DropDownCount := TComboBox(FindComponent(strCombo)).Items.Count
> > else
> > TComboBox(FindComponent(strCombo)).DropDownCount := 10;
> > end;
>
> 함수의 인자를 콤보박스 이름이 아니라 콤보박스를 그대로 넘기시는게 나을것 같은데요.
> 그러면 FindComponent 같은 것도 필요없을 테니까요.
(NOTICE) You must be logged in to comment on this post.
-
- 파이파이
- •
- 2001.05.16 20:39
- 1 COMMENTS
- /
- 0 LIKES
-
김종찬•2001.05.16 22:03답변 : 델파이 팁모아의 한델 팁 검색에서(이화면의 좌측에 있습니다.) "디스켓"을 검색하세요. 안치봉...
-
- 왕초보
- •
- 2001.05.16 20:01
- 1 COMMENTS
- /
- 0 LIKES
-
허접답변•2001.05.16 22:56아따. 오랜만이네. 안녕하세염 허접답변임다. 님이 하실려는게....unit문제인것 같은디......정확한 ...
-
- hehehey!
- •
- 2001.05.16 19:55
- 1 COMMENTS
- /
- 0 LIKES
-
허접답변•2001.05.16 22:58허접답변임다. Application에 보심....hint에 관해 보이거나 감추는 메서드가 있습니다. 그걸..이용하...
-
- blackjewel
- •
- 2001.05.16 19:48
- 3 COMMENTS
- /
- 0 LIKES
-
멋진아이•2001.05.16 20:27blackjewel wrote: > 안녕하세염? > > 한델에서 마니 보구 배우구 있는 초보잔데염... > > 쿼리를 ...
-
초보델•2001.05.16 22:54> 예를 들면 스트링 변수에 값을 저장한다치구 > > var > i : string ; > begin > i := query1.fie...
-
멋진아이•2001.05.17 01:35초보델 wrote: > > 예를 들면 스트링 변수에 값을 저장한다치구 > > > > var > > i : string ; > > ...
-
- 과객
- 2001.05.16 19:47
- 0 COMMENTS
- /
- 0 LIKES
-
- info
- 2001.05.16 19:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보운전
- 2001.05.16 19:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 아폴론
- •
- 2001.05.16 19:20
- 1 COMMENTS
- /
- 0 LIKES
-
^-_-^•2001.05.16 20:32yo` HTML이란 하이퍼 텍스트 마크업 랭귀지 라고 해서 마크업 랭귀지 입니다. 쩝!! 모 사용법은 HT...
-
- 허접
- •
- 2001.05.16 19:09
- 2 COMMENTS
- /
- 0 LIKES
아래 코딩은 fMenu1(차일드 폼입니다...)에서 콤보박스에 값을 때려 넣는 프로시져입니다... 콤보박스 이름을 변수로 받습니다... 근데 여러개의 차일드 폼에 똑같은 코딩이 들어 갑니다... 그래서, 걍~~ 폼 없는 유닛(사용자 정의 함수나...-
블랙봉•2001.05.16 19:25허접 wrote: > 아래 코딩은 fMenu1(차일드 폼입니다...)에서 콤보박스에 값을 때려 넣는 > 프로시져입니...
-
허접•2001.05.16 19:50정말 간단했군요... 역시 고수와 하수와 차이는 이런데서 나는 모양입니다... 정말 감사합니다... 답변 ...
-
- 이원택
- 2001.05.16 18:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 진짜초보
- •
- 2001.05.16 18:18
- 2 COMMENTS
- /
- 0 LIKES
-
김양우•2001.05.16 18:46델파이도 비슷합니다. TQuery 컴포넌트를 폼에 가져다 놓습니다. 그 다음 코딩은 아래와 같이 하면...
-
진짜초보•2001.05.16 18:55친절한 답변에 감사하고요~ 시행해보고 질문사항 있음 다시 올리겠습니다.. 저도 언제가는 이렇게 답변...
-
- 배원성
- •
- 2001.05.16 17:59
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2001.05.17 04:32안녕하세요. 최용일입니다. 네. 뭔가 파일이 빠진거 같군요... 1157 One of the library files neede...
-
- 오양균
- •
- 2001.05.16 13:57
- 1 COMMENTS
- /
- 0 LIKES
-
yunsa•2001.05.16 23:20ODBC 설정할 때....계정이라 암호 넣어주쟎아요...? 거기서 만약 아무것도 안 넣어서 설정해줬따면..... ...
-
- 초보
- •
- 2001.05.16 11:23
- 1 COMMENTS
- /
- 0 LIKES
-
Gromit•2001.05.16 12:50초보 wrote: > DelphiX가 뭐에요.. 갈켜주세요.. 궁금해요.. ^^; 델파이엑스는 DirectX의 여러기능을 ...
-
- 홍진혁
- 2001.05.16 10:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 학인디요
- •
- 2001.05.16 10:08
- 1 COMMENTS
- /
- 0 LIKES
-
델맨•2001.05.16 20:25학인디요 wrote: > VC++로 만든 DLL 3개를 포함한 프로그램을 작성하고 있습니다. > 쓰레드가 약 120개정...
-
- 도와줘요
- 2001.05.16 08:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 연구소
- 2001.05.16 08:43
- 0 COMMENTS
- /
- 0 LIKES
-
- dolphine
- •
- 2001.05.16 08:19
- 1 COMMENTS
- /
- 0 LIKES
-
델동이•2001.05.16 18:41테이블을 만들때 default값을 주시면 됩니다. dolphine wrote: > 안녕하세요. > > Table에 Oracle...
-
- 찬이
- •
- 2001.05.16 07:48
- 2 COMMENTS
- /
- 0 LIKES
-
블랙봉•2001.05.16 08:23찬이 wrote: > * 사용환경 : 델파이5 / Windows 2000 > * 에러 메시지 : EDBEnginError .. Type mismatch...
-
hobakpa•2001.05.16 08:17찬이 wrote: > * 사용환경 : 델파이5 / Windows 2000 > * 에러 메시지 : EDBEnginError .. Type mismatch...
> 아래 코딩은 fMenu1(차일드 폼입니다...)에서 콤보박스에 값을 때려 넣는
> 프로시져입니다...
> 콤보박스 이름을 변수로 받습니다...
>
> 근데 여러개의 차일드 폼에 똑같은 코딩이 들어 갑니다...
> 그래서, 걍~~ 폼 없는 유닛(사용자 정의 함수나 전역변수가 정의 되있습니다.)에다
> 이 프로시져를 함 넣어서 모든 폼에서 가져다 써볼라고 하는데
> 별짓을 해두 안되내요...
>
> 제가 넘 터무니 없는 생각을 했나요...
>
> procedure TfMenu1.pSet_Name_Sido(strCombo:string); // 시도이름 세팅
> var
> i : word;
> begin
> if strCombo = '' then
> Exit;
>
> TComboBox(FindComponent(strCombo)).Clear;
>
> for i := 0 to wCnt_Sigun - 1 do
> begin
> if recpSigun[i].strCode_Sigun = '00' then
> TComboBox(FindComponent(strCombo)).Items.Add(recpSigun[i].strName_Sido);
> end;
>
> if TComboBox(FindComponent(strCombo)).Items.Count < 11 then
> TComboBox(FindComponent(strCombo)).DropDownCount := TComboBox(FindComponent(strCombo)).Items.Count
> else
> TComboBox(FindComponent(strCombo)).DropDownCount := 10;
> end;
함수의 인자를 콤보박스 이름이 아니라 콤보박스를 그대로 넘기시는게 나을것 같은데요.
그러면 FindComponent 같은 것도 필요없을 테니까요.