hsr////////////////////////////////////////////////////
TStream과 TStrings으로 바꾼후 선택하는건데요.
예입니다. 다른 방법있으면 리플로 달아주세요
StringReplace이 시간을 많이 잡아먹네요.
많은양일때는 루프로 돌린것과는 차이가 좀 있을듯.....
Edit1의 문자에 해당하는 노드에 Edit2의 문자인 노드를 생성합니다.

procedure TForm1.Button2Click(Sender: TObject);
var
    Tree_Stream : TStream;
    TS : TStrings;
    NewIndex : integer;
begin
    Tree_Stream := TstringStream.Create('');
    TreeView1.SaveToStream(Tree_Stream);
    Tree_Stream.Position := 0;
    TS := TStringList.Create;
    TS.LoadFromStream(Tree_Stream);
    TS.Text := StringReplace(TS.Text, #9, '', [rfReplaceAll]);
    NewIndex := TS.IndexOf(Edit1.Text);
    if NewIndex >=0 then
       TreeView1.Items.AddChild(TreeView1.Items.Item[NewIndex],Edit1.Text);
    TS.Destroy;
    Tree_Stream.Destroy;
end;

일단 랜덤하게 parent를 찾는다면 방법이 기존의 루프 밖에 없고요.

입력 방법이 어떤것이냐에 따라 입력 방법이 틀리죠.

조직도를 예를 들까 합니다.

(일반적으로 조직명과 코드와 관계코드[이것은 DB에 따라

틀려질수 있음, 예로 10000000, 11000000, 12000000]등으로 구성)

제가 기억은 안나지만 item에 data라는 프러퍼티가 있어 거기에

위의 정보를 입력 가능한것으로 알고 있음.

이 경우 조직명은 실제 Tree에 표시되는 부문이고 내부 관계는 관계코드에

의한것이죠.

만약 위의 트리구조로 입력을 하였다면 데이타구조론의 Tree Search루틴을

사용하면 됩니다

쩝 너무 당연한 이야기를 했네요 끙.. 전 이만 휘리릭.....

안녕하세요. 한원희입니다.

음... 아래와 같은 방식이라면, 하나의 노드를 추가하는 것이라면 상관이 없겠지만, DB를 읽어서 그 쿼리 결과를 모두 처리하는 것이라면, 노드의 개수가 많아질 수록 느려지는 것은 당연하겠지요.

하지만, 달리 생각해 보면, 처음에 쿼리를 해올 당시에 그 결과가 트리에 추가할 순서대로 정렬이 되도록 한다면 어떨까요? 쿼리 결과를 하나씩 일어서 순서의 의해 추가를 하면 되니까, 매우 빠르게 트리를 구성할 수 있을듯 싶습니다. 데이터가 어떻게 구성되어 있을지는 모르겠지만, 새로운 필드를 하나 추가를 하던가 해서 이런식으로 구현하는 것이 속도 향상에는 크게 도움이 되리라 생각됩니다.