Q&A
소스 통째루 올림당...^^
제가 구현할라구 하는것은여... 구라니까 리스트박스1에서 아이템을 클릭하면
리스트박스2루 가걸랑여 ^^
근디.. 리스트박스1에에서 같은아이템을 2번누르면 그러니까 리스트박스2에있는 아이템을 클릭하면
입력이 안돼게할려구 하는데 잘안돼는군여 ^^;;
어떻게 하면 가능할까여.. 일단 멀티셀렉트를 이용해서 해볼려구 깔짝거리긴 했는데
잘안돼는군여 ^^;; 아시는 고수님들 지니치지 마시구 리풀달아 주시와여..구람 존저녁(?) 돼시와여....
procedure Tgg_jprevupdate_f.SpeedButton2Click(Sender: TObject);
var
i, j:integer;
begin
For i := 0 To listbox1.items.Count - 1 do
begin
If listbox1.Selected[i] Then
begin
For j := 0 To listbox2.items.Count - 1 do
begin
// If listbox2.Selected[j] then
if copy((listbox1.items[listbox1.itemindex]),1,14) = copy((listbox1.items[j]),1,14) Then
exit
else
listbox2.Items.add(copy((listbox1.items[listbox1.itemindex]),1,14));
end;
End ;
end;
panel13.caption := inttostr(listbox2.items.count);
end;
- 두개의 리스트박스의 아이템비교 임다... 소스포함임당...
소스 통째루 올림당...^^
제가 구현할라구 하는것은여... 구라니까 리스트박스1에서 아이템을 클릭하면
리스트박스2루 가걸랑여 ^^
근디.. 리스트박스1에에서 같은아이템을 2번누르면 그러니까 리스트박스2에있는 아이템을 클릭하면
입력이 안돼게할려구 하는데 잘안돼는군여 ^^;;
어떻게 하면 가능할까여.. 일단 멀티셀렉트를 이용해서 해볼려구 깔짝거리긴 했는데
잘안돼는군여 ^^;; 아시는 고수님들 지니치지 마시구 리풀달아 주시와여..구람 존저녁(?) 돼시와여....
procedure Tgg_jprevupdate_f.SpeedButton2Click(Sender: TObject);
var
i, j:integer;
begin
For i := 0 To listbox1.items.Count - 1 do
begin
If listbox1.Selected[i] Then
begin
For j := 0 To listbox2.items.Count - 1 do
begin
// If listbox2.Selected[j] then
if copy((listbox1.items[listbox1.itemindex]),1,14) = copy((listbox1.items[j]),1,14) Then
exit
else
listbox2.Items.add(copy((listbox1.items[listbox1.itemindex]),1,14));
end;
End ;
end;
panel13.caption := inttostr(listbox2.items.count);
end;
2
COMMENTS
-
-
kylix wrote:
> IndexOf메소드를 사용하시죠... Copy보다는 이게 낫습니다....
>
> if ListBox2.Items.IndexOf(어떤아이템) > -1 then
> begin
> 같은아이템이 발견되었습니다....
> end;
>
> 이걸쓰면 이중 for문을 쓸필요가 없죠...
>
> 사발우성 wrote:
> >
> >
> > 소스 통째루 올림당...^^
> >
> > 제가 구현할라구 하는것은여... 구라니까 리스트박스1에서 아이템을 클릭하면
> > 리스트박스2루 가걸랑여 ^^
> > 근디.. 리스트박스1에에서 같은아이템을 2번누르면 그러니까 리스트박스2에있는 아이템을 클릭하면
> > 입력이 안돼게할려구 하는데 잘안돼는군여 ^^;;
> > 어떻게 하면 가능할까여.. 일단 멀티셀렉트를 이용해서 해볼려구 깔짝거리긴 했는데
> > 잘안돼는군여 ^^;; 아시는 고수님들 지니치지 마시구 리풀달아 주시와여..구람 존저녁(?) 돼시와여....
> >
> > procedure Tgg_jprevupdate_f.SpeedButton2Click(Sender: TObject);
> > var
> > i, j:integer;
> > begin
> >
> > For i := 0 To listbox1.items.Count - 1 do
> > begin
> > If listbox1.Selected[i] Then
> > begin
> > For j := 0 To listbox2.items.Count - 1 do
> > begin
> > // If listbox2.Selected[j] then
> > if copy((listbox1.items[listbox1.itemindex]),1,14) = copy((listbox1.items[j]),1,14) Then
> > exit
> > else
> > listbox2.Items.add(copy((listbox1.items[listbox1.itemindex]),1,14));
> > end;
> > End ;
> > end;
> > panel13.caption := inttostr(listbox2.items.count);
> > end;
> >
(NOTICE) You must be logged in to comment on this post.
-
- 델초보
- •
- 2001.02.28 18:50
- 1 COMMENTS
- /
- 0 LIKES
-
권민호•2001.02.28 18:55델초보 wrote: > 메모컴포넌트의 text를 오라클 long Type 컬럼에 Insert하려는데 > 자꾸만 라인이 삽입...
-
- 보라미
- •
- 2001.02.28 18:46
- 1 COMMENTS
- /
- 0 LIKES
-
TeamX•2001.02.28 23:42혹시나 SubType='mtHtml' 이 SubType='text/html' 로 하면 안될까요???. 아닌가??? -_- 보라미 wro...
-
- 초보
- •
- 2001.02.28 18:20
- 1 COMMENTS
- /
- 0 LIKES
-
공성환•2001.02.28 18:31where rownum 안녕하세요 > 언젠가 봤는데 쿼리를 오픈해서 위로부터 원하는 만큼 .... > > with Quer...
-
- 사발우성
- •
- 2001.02.28 08:17
- 2 COMMENTS
- /
- 0 LIKES
소스 통째루 올림당...^^ 제가 구현할라구 하는것은여... 구라니까 리스트박스1에서 아이템을 클릭하면 리스트박스2루 가걸랑여 ^^ 근디.. 리스트박스1에에서 같은아이템을 2번누르면 그러니까 리스트박스2에있는 아이템을 클릭하면 입력...-
kylix•2001.02.28 14:21IndexOf메소드를 사용하시죠... Copy보다는 이게 낫습니다.... if ListBox2.Items.IndexOf(어떤아이템) ...
-
사발우성•2001.02.28 18:04kylix wrote: > IndexOf메소드를 사용하시죠... Copy보다는 이게 낫습니다.... > > if ListBox2.Items....
-
- 질문자
- 2001.02.28 08:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 델피언77
- •
- 2001.02.28 07:11
- 1 COMMENTS
- /
- 0 LIKES
-
하얀까마귀•2001.02.28 11:08안녕하세요 하얀까마귀 입니다. 무슨 루틴인지 일부인것 같네요.. 아마도 jpeg.Assign(Image1.Pic...
-
- 처버처버
- •
- 2001.02.28 07:13
- 2 COMMENTS
- /
- 0 LIKES
-
방기남•2001.02.28 09:03var BTN: Array of TButton; procedure TForm1.FormCreate(Sender: TObject); begin SetLength(B...
-
kylix•2001.02.28 12:31근데요... 그렇게 배열을 선언해가지구 잡아주시면 FindComponent를 쓸필요가 없지 않을까요... 배열의 ...
-
- 홍문택
- 2001.02.28 07:00
- 0 COMMENTS
- /
- 0 LIKES
-
- ㅜㅜ
- 2001.02.28 06:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 김춘성
- 2001.02.28 05:36
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 제크
- •
- 2001.02.28 05:12
- 2 COMMENTS
- /
- 0 LIKES
-
kylix•2001.02.28 07:12> SaveDialog1.Execute; 이곳이 저장하는 곳인가요? 흠~~ 파일에 따른 저장 방법이 수천수만가지인데 ...
-
하얀까마귀•2001.02.28 11:14안녕하세요 하얀까마귀 입니다. if SaveDialog1.Execute then SaveDialog1.Execute; 이곳이 저장하는...
-
- 고광현
- •
- 2001.02.28 05:03
- 1 COMMENTS
- /
- 0 LIKES
-
바보감자•2001.02.28 05:28고광현 wrote: > 안녕하세요... > 한영키제어에 관한 질문입니다. > 델파이 2.0에서 자동으로 한글입력...
-
- 델파초짜..
- •
- 2001.02.28 04:33
- 2 COMMENTS
- /
- 0 LIKES
-
참고만•2001.02.28 06:59//아래코드가 다 입니껴? //동적 생성된 소켓에 서버로 연결은 하셨사옵니까? > G_ClientSocket[Num]...
-
jung hyun jin•2001.02.28 06:44델파초짜.. wrote: > 클라이언트소켓를 동적 생성하였는데요.. > 이벤트가 일어나질 않네요.. > > 좀...
-
- coco
- 2001.02.28 03:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 장민우
- 2001.02.28 03:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 김형식
- •
- 2001.02.28 02:59
- 1 COMMENTS
- /
- 0 LIKES
-
똘망울•2001.02.28 03:09배열에 클래스(객체)를 넣을때.. 배열도 같은 class type 이어야 합니다. 배열에 넣으면..배열 = 클래스 ...
-
- joajoa
- •
- 2001.03.04 01:01
- 1 COMMENTS
- /
- 0 LIKES
-
jung hyun jin•2001.03.04 01:01joajoa wrote: > > 타이틀이 나타나질 않습니다. > 왜 일까여? > 아주 예전에 이런 버그가 있었는데 ...
-
- 델피언
- •
- 2001.02.28 02:47
- 2 COMMENTS
- /
- 0 LIKES
-
jung hyun jin•2001.02.28 06:48델피언 wrote: > 안녕하세여~ > > 델파이3을 5로 업그레이드했더니만.. > 퀵레포트가 어떤건 정상으로...
-
델피언•2001.02.28 19:09답변 감사합니다. 꾸벅~ 나름대로 차이를 비교했더니 페이지헤더에 다이렉트로 작성된 레포트폼은 다 안...
-
- 김춘성
- •
- 2001.02.28 02:39
- 1 COMMENTS
- /
- 0 LIKES
-
똘망울•2001.02.28 03:04델파이 씨디에 인스톨 쉴드 같이 있어여. 김춘성 wrote: > > 안녕하세요... > 인스톨쉴드는 어디서 ...
if ListBox2.Items.IndexOf(어떤아이템) > -1 then
begin
같은아이템이 발견되었습니다....
end;
이걸쓰면 이중 for문을 쓸필요가 없죠...
사발우성 wrote:
>
>
> 소스 통째루 올림당...^^
>
> 제가 구현할라구 하는것은여... 구라니까 리스트박스1에서 아이템을 클릭하면
> 리스트박스2루 가걸랑여 ^^
> 근디.. 리스트박스1에에서 같은아이템을 2번누르면 그러니까 리스트박스2에있는 아이템을 클릭하면
> 입력이 안돼게할려구 하는데 잘안돼는군여 ^^;;
> 어떻게 하면 가능할까여.. 일단 멀티셀렉트를 이용해서 해볼려구 깔짝거리긴 했는데
> 잘안돼는군여 ^^;; 아시는 고수님들 지니치지 마시구 리풀달아 주시와여..구람 존저녁(?) 돼시와여....
>
> procedure Tgg_jprevupdate_f.SpeedButton2Click(Sender: TObject);
> var
> i, j:integer;
> begin
>
> For i := 0 To listbox1.items.Count - 1 do
> begin
> If listbox1.Selected[i] Then
> begin
> For j := 0 To listbox2.items.Count - 1 do
> begin
> // If listbox2.Selected[j] then
> if copy((listbox1.items[listbox1.itemindex]),1,14) = copy((listbox1.items[j]),1,14) Then
> exit
> else
> listbox2.Items.add(copy((listbox1.items[listbox1.itemindex]),1,14));
> end;
> End ;
> end;
> panel13.caption := inttostr(listbox2.items.count);
> end;
>