2009년 4월 16일 목요일

데이터 읽어서 TreeView 생성하기 In DELPHI

Procedure TGEA100F1.MakeTree;
Var
ItmCd : String;
Node_1, Node_2, Node_3 : TTreeNode;

Begin
TreeView.Items.Clear;
.
. //데이터 읽어오기...
.
TreeView.Items.BeginUpdate;

For ii := 0 To RowNo - 1 Do

Begin
ItmCd := Trim(트리에 뿌려질 내역...);

If 읽어온 레벨 = '1' Then //Node의 레벨 체크...

begin Node_1 := TreeView.Items.Add(TreeView.TopItem,ItmCd));
End
Else If 읽어온 레벨 = '2' Then Begin Node_2 := TreeView.Items.AddChild(Node_1,ItmCd));
End
Else If 읽어온 레벨 = '3' Then Begin Node_3 := TreeView.Items.AddChild(Node_2,ItmCd));
End;

Node_Idx[ii] := ItmCd; //없어도 됨...

End;

TreeView.Items.EndUpdate;

TreeView.items[0].selected := True;
End;

이런 식으로 처리하면 TreeView에 데이터를 Tree로 보여줍니다...

댓글 없음:

댓글 쓰기