cxTreeList의 내용을 복사하기
DBTreelist이든 일반이던 모든 내용을 복사 합니다.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 |
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; |
최신 댓글