한국 델파이 개발자 모임 - 트리뷰 노드의 비교->텍스트 말고 다른건 없을까요?

트리뷰 노드의 비교->텍스트 말고 다른건 없을까요?

treeview의 structure는

大

|_中1

| |_小1

|

|_中2

| |_小2

|

|_中3

|_小3

"

"

"

'

이렇게 되있는데, 中(Node)를 선택했을때, 그 하위 노드들을 ListBox에 넣어주려고 합니다.

하지만, 아래와 같은 Coding은 中(Node)의 .Text가 같으면, 그 하위 노드들을 전부 가져옵니다.

그렇다면, 中(Node)의 .Text 가 서로 같은걸 조건으로 하는 방법 말고, 다른 방법은 없을까요?

부탁드립니다.

___________________________________________________________________________________

아래와 같은 코딩을 하였습니다.

procedure TForm2.TreeView1Click(Sender: TObject);

var

AppNode, TempNode: TTreenode;

i, j, DuplicateIndex: Integer;

begin

AppNode := TreeView1.Selected; //선택된 것: AppNode !

if (AppNode = nil) or (AppNode.level = 0) then Exit;

//FOR 루프로 Looping을 돌린다..

DuplicateIndex := ListBox1.Items.IndexOf(AppNode.text); //중복된 값을 방지

if DuplicateIndex = -1 then

listbox1.items.add(AppNode.text);

for i:=1 to treeview1.items.Count-1 do Begin

if AppNode.level < treeview1.items.item[i].level Then //선택된 노드가 하위노드를 가진 item일 때.

begin

TempNode:= treeview1.items.item[i]; //TempNode

for j:=1 to treeview1.items.item[i].level-AppNode.level do Begin

TempNode:= TempNode.Parent;

end;

//*************************************************************************//

{***} if AppNode.text= TempNode.text then

begin

ListBox1.Sorted := True;

if DuplicateIndex = 0 then

ListBox1.items.add(treeview1.items.item[i].text);

end;

end;

end; //for..

end;

이 게시물을

2 COMMENTS

홍성락 • 2001.10.31 06:02

헬프미 wrote:

> treeview의 structure는

>

> 大

> |_中1

> | |_小1

> |

> |_中2

> | |_小2

> |

> |_中3

> |_小3

> "

> "

> "

> '

> 이렇게 되있는데, 中(Node)를 선택했을때, 그 하위 노드들을 ListBox에 넣어주려고 합니다.

> 하지만, 아래와 같은 Coding은 中(Node)의 .Text가 같으면, 그 하위 노드들을 전부 가져옵니다.

> 그렇다면, 中(Node)의 .Text 가 서로 같은걸 조건으로 하는 방법 말고, 다른 방법은 없을까요?

> 부탁드립니다.

> ___________________________________________________________________________________

>

>

>

> 아래와 같은 코딩을 하였습니다.

>

>

> procedure TForm2.TreeView1Click(Sender: TObject);

> var

> AppNode, TempNode: TTreenode;

> i, j, DuplicateIndex: Integer;

> begin

> AppNode := TreeView1.Selected; //선택된 것: AppNode !

> if (AppNode = nil) or (AppNode.level = 0) then Exit;

>

> //FOR 루프로 Looping을 돌린다..

>

> DuplicateIndex := ListBox1.Items.IndexOf(AppNode.text); //중복된 값을 방지

>

> if DuplicateIndex = -1 then

> listbox1.items.add(AppNode.text);

>

> for i:=1 to treeview1.items.Count-1 do Begin

> if AppNode.level < treeview1.items.item[i].level Then //선택된 노드가 하위노드를 가진 item일 때.

> begin

> TempNode:= treeview1.items.item[i]; //TempNode

>

> for j:=1 to treeview1.items.item[i].level-AppNode.level do Begin

> TempNode:= TempNode.Parent;

> end;

> //*************************************************************************//

> {***} if AppNode.text= TempNode.text then

> begin

> ListBox1.Sorted := True;

> if DuplicateIndex = 0 then

> ListBox1.items.add(treeview1.items.item[i].text);

> end;

> end;

> end; //for..

> end;

////////////////////////////////////////////////////////////////////////

자료실의 트리뷰와DB를연결한간단한예제의 생산_트리는 동일 아이템명을 허용치 않기때문에 텍스트로 검색한건데요.

if AppNode.text= TempNode.text then 을

if AppNode= TempNode then 로해보세요.
- 0
- 0
- 삭제
- 수정
- 댓글
헬프미 • 2001.10.31 23:02

홍성락 wrote:

> 헬프미 wrote:

> > treeview의 structure는

> >

> > 大

> > |_中1

> > | |_小1

> > |

> > |_中2

> > | |_小2

> > |

> > |_中3

> > |_小3

> > "

> > "

> > "

> > '

> > 이렇게 되있는데, 中(Node)를 선택했을때, 그 하위 노드들을 ListBox에 넣어주려고 합니다.

> > 하지만, 아래와 같은 Coding은 中(Node)의 .Text가 같으면, 그 하위 노드들을 전부 가져옵니다.

> > 그렇다면, 中(Node)의 .Text 가 서로 같은걸 조건으로 하는 방법 말고, 다른 방법은 없을까요?

> > 부탁드립니다.

> > ___________________________________________________________________________________

> >

> >

> >

> > 아래와 같은 코딩을 하였습니다.

> >

> >

> > procedure TForm2.TreeView1Click(Sender: TObject);

> > var

> > AppNode, TempNode: TTreenode;

> > i, j, DuplicateIndex: Integer;

> > begin

> > AppNode := TreeView1.Selected; //선택된 것: AppNode !

> > if (AppNode = nil) or (AppNode.level = 0) then Exit;

> >

> > //FOR 루프로 Looping을 돌린다..

> >

> > DuplicateIndex := ListBox1.Items.IndexOf(AppNode.text); //중복된 값을 방지

> >

> > if DuplicateIndex = -1 then

> > listbox1.items.add(AppNode.text);

> >

> > for i:=1 to treeview1.items.Count-1 do Begin

> > if AppNode.level < treeview1.items.item[i].level Then //선택된 노드가 하위노드를 가진 item일 때.

> > begin

> > TempNode:= treeview1.items.item[i]; //TempNode

> >

> > for j:=1 to treeview1.items.item[i].level-AppNode.level do Begin

> > TempNode:= TempNode.Parent;

> > end;

> > //*************************************************************************//

> > {***} if AppNode.text= TempNode.text then

> > begin

> > ListBox1.Sorted := True;

> > if DuplicateIndex = 0 then

> > ListBox1.items.add(treeview1.items.item[i].text);

> > end;

> > end;

> > end; //for..

> > end;

> ////////////////////////////////////////////////////////////////////////

> 자료실의 트리뷰와DB를연결한간단한예제의 생산_트리는 동일 아이템명을 허용치 않기때문에 텍스트로 검색한건데요.

> if AppNode.text= TempNode.text then 을

> if AppNode= TempNode then 로해보세요.

>
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 초보
- •
- 2001.10.31 07:10
- 3 COMMENTS
- /
- 0 LIKES
이런게 가능한가요 ?
- 초보
  
  •
  
  2001.10.31 20:27
  
  1. 이미지에 10 pixel 단위로 점을 찍습니다. (이미지 전체) 2. 사각형을 그립니다. Brush.Style = b...
- 최용일
  
  •
  
  2001.10.31 21:45
  
  뭘하실려는지는 잘 모르겠지만... 3번에서 그냥 브러쉬의 스타일을 bsSolid로해서 사각형 그리고 점만 ...
- tester
  
  •
  
  2001.10.31 11:49
  
  뭔 소린지 이해를 할 수가 없네요... 좀더 자세히 써봐요... 아님 그림을 그려서 올리시던가... 쩝~~~ ...
- 김명일
- 2001.10.31 06:47
- 0 COMMENTS
- /
- 0 LIKES
activex 보안문제 - 답변 꼭 바랍니당.
- 막 시작^^*
- •
- 2001.10.31 06:34
- 2 COMMENTS
- /
- 0 LIKES
계산기를 만드는데 소수점 '.'을 어떻게 해야지 사용할수있는지요???
- 구창민
  
  •
  
  2001.10.31 10:03
  
  실수형을 문자열로 표현하고 싶다는 뜻인가요? Edit1.Text := FloatToStr(10.3 * 3.75) 이런 형태면...
- 초보자
  
  •
  
  2001.11.01 06:05
  
  답변 감사합니다. ^^* 그러나 잘 이해가 가질 않네요 ^^* 시작하지 한 달도 않되거든요...
- 초보
- •
- 2001.10.31 04:20
- 1 COMMENTS
- /
- 0 LIKES
스토어드프로시져사용하기좀 알려주세요
- 지나는 이
  
  •
  
  2001.10.31 11:20
  
  초보 wrote: > 델파이 3.0인데요 > with storedproc.Params do > begin > ...
- 좋은친구
- 2001.10.31 04:11
- 0 COMMENTS
- /
- 0 LIKES
가장 기본적인 사칙연산 계산기 소스입니다.......도움되시길^^
- ..
- •
- 2001.10.31 03:40
- 1 COMMENTS
- /
- 0 LIKES
DB조인은..
- 사발우성™
  
  •
  
  2001.10.31 18:07
  
  hi~ inner join으로 하면 되겠군엽 ^^ select distinct 가.b,가.c,나.d from 가 inner join 나 on 가....
- 초보
- •
- 2001.10.31 03:36
- 3 COMMENTS
- /
- 0 LIKES
Api 사용이 잘못된건가요 ?
- 구창민
  
  •
  
  2001.10.31 03:45
  
  무언가 다른 작업을 하시는 듯 하군요. 빈폼을 만들고 다음과 같이 테스트 해보세요 Arc(Canvas.hand...
- 초보
  
  •
  
  2001.10.31 04:21
  
  폼에서 버튼을 만들고 하면 즉시 그려지는 것은 압니다. 그런데 image를 한개 폼위에 놓고 먼저 다른 버튼...
- 구창민
  
  •
  
  2001.10.31 10:22
  
  어떻게 작업을 하고 계신지 잘모르겠는데..^_^; 호를 그린후에 Image.Invalidate 해보세요. 그럼~ ...
- 김선태
- •
- 2001.10.31 03:04
- 1 COMMENTS
- /
- 0 LIKES
TSplitter 사용시....
- 구창민
  
  •
  
  2001.10.31 03:35
  
  김선태 wrote: > 스플리터를 사용하려합니다. 프로그램 종료후 스플리터 윈도우의 설정을 이니셜 파일등에...
- 전영재
- •
- 2001.10.31 03:03
- 2 COMMENTS
- /
- 0 LIKES
시스템 등록정보중 환경변수 설정법에 대해...
- 구창민
  
  •
  
  2001.10.31 03:40
  
  님이 찾아내신 게 맞습니다. 다 찾으셔놓구..^_^; 환경변수를 읽어올땐, GetEnvironmentVariable...
- 전영재
  
  •
  
  2001.11.01 04:53
  
  저도 님께서 알려주신것처럼 사용을 해보았지만 않되더군요... 작성한 프로그램내에서는 얼마든지 적용이 ...
- jung
- •
- 2001.10.31 02:51
- 2 COMMENTS
- /
- 0 LIKES
년도
- 우히히
  
  •
  
  2001.11.02 08:26
  
  jung wrote: > 제컴터에서 프로그램을 짜서 돌릴때 > new 연산자를 사용하면 년도가 2001 이라고 나오는...
- 무심코
  
  •
  
  2001.10.31 03:39
  
  jung wrote: > 제컴터에서 프로그램을 짜서 돌릴때 > new 연산자를 사용하면 년도가 2001 이라고 나오는...
- 초보임당
- •
- 2001.10.31 02:37
- 1 COMMENTS
- /
- 0 LIKES
edit컴포넌트에서 maxLangth
- 이성찬
  
  •
  
  2001.10.31 02:49
  
  OnChange with Edit1 do begin if Length(Text) = MaxLength then begin ... end; end;
- 꾸룽껭
- 2001.10.31 02:33
- 0 COMMENTS
- /
- 0 LIKES
mysql 에대한 질문입니다.
- 처음
- •
- 2001.10.31 03:37
- 1 COMMENTS
- /
- 0 LIKES
윈도우2000의 시스템키를 막기(Ctrl+Alt+Del, Alt+Tab, Ctrl+ESC)
- 구창민
  
  •
  
  2001.10.31 10:55
  
  처음 wrote: > // Ctrl+Alt+Del 키를 사용못하게... > SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,@...
- hawkeye
- 2001.10.31 01:48
- 0 COMMENTS
- /
- 0 LIKES
Just-Time-In Debugger Error....
- 조언자
- 2001.10.31 01:45
- 0 COMMENTS
- /
- 0 LIKES
zeos 어플리케이션 서버를 사용하고 싶습니다.
- 이지인
- •
- 2001.10.31 01:17
- 2 COMMENTS
- /
- 0 LIKES
동적생성된 StaticText의 Caption을 일괄바꾸기하려면?? 제발요..
- 최용일
  
  •
  
  2001.10.31 01:26
  
  안녕하세요. 최용일입니다. 형변환하세요... ............. // StaticText의 삭제와 Tag재정립 ...
- 이지인
  
  •
  
  2001.10.31 02:24
  
  감사.. 감사 합니다 에공 이런것도 몰랐넹 제가 VB는 제법하는데 델파이는 첨이라서용 ^^ 차차 알아가...
- 헬프미
- •
- 2001.10.31 01:01
- 2 COMMENTS
- /
- 0 LIKES
트리뷰 노드의 비교->텍스트 말고 다른건 없을까요?

treeview의 structure는 大 |_中1 | |_小1 | |_中2 | |_小2 | |_中3 |_小3 " " " ' 이렇게 되있는데, 中(Node)를 선택했을때, 그 하위 노드들을 ListBox에 넣어주려고 합니다. 하지만, 아래와 같은 Coding은 中(Node)의 .Text가 같으면, ...
- 홍성락
  
  •
  
  2001.10.31 06:02
  
  헬프미 wrote: > treeview의 structure는 > > 大 > |_中1 > | |_小1 > | > |_中2 > | |_...
- 헬프미
  
  •
  
  2001.10.31 23:02
  
  홍성락 wrote: > 헬프미 wrote: > > treeview의 structure는 > > > > 大 > > |_中1 > > | |_小1...
- hawkeye
- 2001.10.31 00:46
- 0 COMMENTS
- /
- 0 LIKES
[VCL] 콤포넌트팔레트에 Form밖에 없습니다...
- 박재헌
- 2001.10.31 00:27
- 0 COMMENTS
- /
- 0 LIKES
[Q]quickreport export 문제
- 송시중
- 2001.10.31 00:11
- 0 COMMENTS
- /
- 0 LIKES
웹 로긴을 처리해 주고 싶습니다.

헬프미
2001/10/31 01:01
Views192

Likes0

Comments2

Reports0
Tag List
수정
삭제
목록으로

←First Page

1517 1518 1519 1520 1521 1522 1523 1524 1525 1526

Last Page→