cxTreeList의 내용을 복사하기

DBTreelist이든 일반이던 모든 내용을 복사 합니다.

var
  i,j : Integer;
  N : TcxTreeListNode;
begin
  for I := 0 to aaaa.AbsoluteCount - 1 do
  begin
    if aaaa.AbsoluteItems[ i ].Parent = aaaa.AbsoluteItems[ i ].Root then
    begin
      with bbbb.AddNode( nil, nil, nil, tlamAddChild ) do
      begin
        values[0] := aaaa.AbsoluteItems[ i ].Values[0];
        values[1] := aaaa.AbsoluteItems[ i ].Values[1];
        values[2] := aaaa.AbsoluteItems[ i ].Values[3];
      end;

    end
    else
    begin
          N := nil;
          for j := 0 to bbbb.AbsoluteCount - 1 do
            if bbbb.AbsoluteItems[j].Values[0] = aaaa.AbsoluteItems[ i ].Values[1] then
            begin
              N := bbbb.AbsoluteItems[j];
              Break;
            end;

      with bbbb.AddNode( nil, N, nil, tlamAddChild ) do
      begin
        values[0] := aaaa.AbsoluteItems[ i ].Values[0];
        values[1] := aaaa.AbsoluteItems[ i ].Values[1];
        values[2] := aaaa.AbsoluteItems[ i ].Values[3];
      end;

    end;

    end;