Q&A
- 한 콤보박스의 내용이 바뀔 때 다른 콤보박스도 따라 바뀌게 하려면?
procedure Tfrmmas001.s_mediam_gubunChange(Sender: TObject);
var
c_gubun : string;
begin
s_mediam_name.Clear;
if s_mediam_gubun.ItemIndex < 0 then
Exit;
c_gubun := copy(s_mediam_gubun.text,1,2);
with t_q do
begin
while not eof do
begin
if c_gubun = (copy(string_name.Text ,1,2)) then
s_mediam_name.Items.Add('string_gubun[1]');
end;
end;
end;
procedure Tfrmmas001.FormCreate(Sender: TObject);
begin
try
t_q.Open;
string_gubun := TStringList.Create; // 메체구분
string_name := TStringList.Create; // 메체명
with t_q do
begin
first;
while Not Eof do
begin
string_gubun.Add(Trim(fields[2].AsString));
string_name.Add(Trim(fields[8].AsString));
Next;
end;
first;
mas_message.text := string_gubun[0];
end;
except
showmessage('코드정보 읽기에러');
end;
end;
procedure Tfrmmas001.C_mediam_gubunClick(Sender: TObject);
begin
with t_q do
begin
first;
while not eof do
begin
s_mediam_gubun.Items.Add(string_gubun[0]) ;
next;
end;
first;
end;
end;
이것은 s_mediam_gubun(콤보박스)의 내용이 바뀔때 s_mediam_name(콤보박스)의 내용이 바뀌게할려는 program입다..
군데 이상한값만 나오고 내가원하는 값은 안나오는군여..
알켜주세여
var
c_gubun : string;
begin
s_mediam_name.Clear;
if s_mediam_gubun.ItemIndex < 0 then
Exit;
c_gubun := copy(s_mediam_gubun.text,1,2);
with t_q do
begin
while not eof do
begin
if c_gubun = (copy(string_name.Text ,1,2)) then
s_mediam_name.Items.Add('string_gubun[1]');
end;
end;
end;
procedure Tfrmmas001.FormCreate(Sender: TObject);
begin
try
t_q.Open;
string_gubun := TStringList.Create; // 메체구분
string_name := TStringList.Create; // 메체명
with t_q do
begin
first;
while Not Eof do
begin
string_gubun.Add(Trim(fields[2].AsString));
string_name.Add(Trim(fields[8].AsString));
Next;
end;
first;
mas_message.text := string_gubun[0];
end;
except
showmessage('코드정보 읽기에러');
end;
end;
procedure Tfrmmas001.C_mediam_gubunClick(Sender: TObject);
begin
with t_q do
begin
first;
while not eof do
begin
s_mediam_gubun.Items.Add(string_gubun[0]) ;
next;
end;
first;
end;
end;
이것은 s_mediam_gubun(콤보박스)의 내용이 바뀔때 s_mediam_name(콤보박스)의 내용이 바뀌게할려는 program입다..
군데 이상한값만 나오고 내가원하는 값은 안나오는군여..
알켜주세여
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- neperz
- •
- 2000.11.11 03:19
- 1 COMMENTS
- /
- 0 LIKES
-
낙화•2000.11.11 03:59sql문을 대입할때 sql.add 를 쓰지말고 sql.text 를 사용해보시길 바랍니다..한결 소스보기가 수월할겁...
-
- 한상훈
- •
- 2000.11.11 03:11
- 1 COMMENTS
- /
- 0 LIKES
-
낙화•2000.11.11 03:54한상훈 wrote: > 흑흑.. 초보여요.. > > ('문자열'); 이 넘 길어 다음줄에 쓰고자할때 이문장이 유지되...
-
- 김지수
- •
- 2000.11.11 10:59
- 1 COMMENTS
- /
- 0 LIKES
procedure Tfrmmas001.s_mediam_gubunChange(Sender: TObject); var c_gubun : string; begin s_mediam_name.Clear; if s_mediam_gubun.ItemIndex < 0 then Exit; c_gubun := copy(s_mediam_gubun.text,1,2); with t_q do begin while not...-
남기석•2000.11.11 11:00안녕하세요 청개구리 남기석( http://www.delphitravel.com )입니다. 소스를 보니까.... 테이블에서 ...
-
- 이선희
- 2000.11.11 01:55
- 0 COMMENTS
- /
- 0 LIKES
-
- 성병규
- 2000.11.11 01:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보델피언
- 2000.11.11 01:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 정용광
- 2000.11.11 11:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 윤
- •
- 2000.11.11 00:33
- 1 COMMENTS
- /
- 0 LIKES
-
까마귀•2000.11.11 01:16윤 wrote: > 변수 =조건 ? 값1 : 값2 > > 이런 삼항연산자 파스칼에도 있습니까? 안녕하세요. 까...
-
- 알려줘여^^;
- 2000.11.11 11:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 꼴통
- •
- 2000.11.11 00:09
- 1 COMMENTS
- /
- 0 LIKES
-
김종찬•2000.11.12 01:26꼴통 wrote: > 안녕하세요 > > 스트링 그리드의 Cell들에 들어 있는 값들을 Text화일로 저장할려고 합...
-
- 호야
- •
- 2000.11.11 11:03
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2000.11.11 11:03TMemo.Lines, TListBox.Items는 그 타입이 TString임다. Index가 0부터 시작하져. 즉 그 내용이 a, b, c...
-
- 이상림
- 2000.11.11 11:04
- 0 COMMENTS
- /
- 0 LIKES
-
- 김현숙
- 2000.11.10 23:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 델사랑
- 2000.11.10 23:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 델사랑
- •
- 2000.11.10 23:38
- 2 COMMENTS
- /
- 0 LIKES
-
soriso•2000.11.11 00:17델사랑 wrote: > 디비그리드에서 레코드포인터를 키보드나 마우스로 이동시킬때 버튼을 누르지 않더라도 ...
-
Jon•2000.11.11 00:08델사랑 wrote: > 디비그리드에서 레코드포인터를 키보드나 마우스로 이동시킬때 버튼을 누르지 않더라도 ...
-
- 흠흠
- •
- 2000.11.10 23:19
- 2 COMMENTS
- /
- 0 LIKES
-
이경문•2000.11.11 04:57ActiveX는 그 차제로는 실행이 불가능합니다. 즉 EXE형태같은 메인프로그램이 있어야 하지여. 일단 Active...
-
초보델피언•2000.11.10 23:40메뉴중 Project - Web Dployment Options 에서 OCX 와 HTML이 저장될 위치 그리고 URL 등을 지정해 주시고 ...
-
- 금강산
- •
- 2000.11.10 22:51
- 1 COMMENTS
- /
- 0 LIKES
-
설탕시럽•2000.11.10 23:01FormatFloat 함수를 사용하세요. 도움말에두 있구... 여기서 조회해두 많이 나올겁니다. FormatFloat...
-
- 김종일
- 2000.11.10 22:17
- 0 COMMENTS
- /
- 0 LIKES
-
- castle road
- 2000.11.10 22:11
- 0 COMMENTS
- /
- 0 LIKES
-
- 최지수
- 2000.11.10 22:06
- 0 COMMENTS
- /
- 0 LIKES
청개구리 남기석( http://www.delphitravel.com )입니다.
소스를 보니까....
테이블에서 구분코드와 이름을 가져와서 코드가 입력되어 있는 콤보가 변경되면
옆에 있는 콤보에 해당 이름을 보여주는 것 같군요?
맞나요?
맞다면 이런 방법을 사용해보세요...
StringList 에 코드와 이름을 Add하지 마시고...
2개의 콤보박에 직접 Add해 주시고...( 같은 인덱스에다가 )
코드 콤보박스의 인덱스가 변경되면 이름 콤보박스의 인덱스를
변경해 주면됩니다.
간단히 예를 들어볼께요...
procedure Tfrmmas001.FormCreate(Sender: TObject);
begin
try
t_q.Open;
t_q.first;
with t_q do
begin
while Not Eof do
begin
s_mediam_gubun.Items.Add( Trim(fields[2].AsString) ); //코드콤보
s_mediam_name.Items.Add( Trim(fields[8].AsString) ); //이름콤보
Next;
end;
end;
s_mediam_gubun.itemindex := 0; // 코드 콤보를 첫번째 값으로...
s_mediam_name.ItemIndex := 0; // 이름 콤보를 첫번째 값으로...
except
showmessage('코드정보 읽기에러');
end;
end;
procedure Tfrmmas001.s_mediam_gubunChange(Sender: TObject);
begin
// 구분콤보가 바뀌면 이름콤보의 인덱스를 구분콤보의 인덱스로
s_mediam_name.ItemIndex := s_mediam_gubun.itemindex;
end;
procedure Tfrmmas001.s_mediam_nameChange(Sender: TObject);
begin
// 이름콤보가 바뀌면 구분콤보의 인덱스를 이름콤보의 인덱스로
s_mediam_gubun.itemindex := s_mediam_name.ItemIndex;
end;
행복하세요..
=============================================================================
김지수 wrote:
> procedure Tfrmmas001.s_mediam_gubunChange(Sender: TObject);
> var
> c_gubun : string;
> begin
> s_mediam_name.Clear;
> if s_mediam_gubun.ItemIndex < 0 then
> Exit;
> c_gubun := copy(s_mediam_gubun.text,1,2);
> with t_q do
> begin
> while not eof do
> begin
> if c_gubun = (copy(string_name.Text ,1,2)) then
> s_mediam_name.Items.Add('string_gubun[1]');
> end;
> end;
> end;
>
> procedure Tfrmmas001.FormCreate(Sender: TObject);
> begin
> try
> t_q.Open;
> string_gubun := TStringList.Create; // 메체구분
> string_name := TStringList.Create; // 메체명
> with t_q do
> begin
> first;
> while Not Eof do
> begin
> string_gubun.Add(Trim(fields[2].AsString));
> string_name.Add(Trim(fields[8].AsString));
> Next;
> end;
> first;
> mas_message.text := string_gubun[0];
> end;
> except
> showmessage('코드정보 읽기에러');
> end;
> end;
>
> procedure Tfrmmas001.C_mediam_gubunClick(Sender: TObject);
> begin
> with t_q do
> begin
> first;
> while not eof do
> begin
> s_mediam_gubun.Items.Add(string_gubun[0]) ;
> next;
> end;
> first;
> end;
> end;
> 이것은 s_mediam_gubun(콤보박스)의 내용이 바뀔때 s_mediam_name(콤보박스)의 내용이 바뀌게할려는 program입다..
> 군데 이상한값만 나오고 내가원하는 값은 안나오는군여..
> 알켜주세여