這段時間，由於要解決一個技術問題，整天都在網上跑這跑那的查資料。由於我主要用Delphi作為開發工具，所以，各IT網站的Delphi分類文檔我也看了看，並收獲良多。在那幾百篇文檔中，有幾篇文檔論及了Vcl庫中的TTreeView與TListView的用法。講TreeView時，主要是講建樹的方法及數據結構；講ListView時，主要講了支持文件拖動等。今天，我想以TTreeView為例，講一講這兩個VCL類的另一個方面 -- TreeView或ListView 的Item的Data屬性。因為我看了的文檔，基本上沒有論及Data屬性，大多是用數組或字符串列表來保存樹節點中用戶關心的數據 -- 比如用數組保存某一數據的標識號。其實，用數組或是TStrings來保存都不是好的解決方法，大家都知道，TreeNode與ListItem都有一個指針類型的Data屬性，靈活運用這個指針，比用數組和TStrings要好得多。當然，這只是一個小技巧，如果知道這方面技巧的朋友，請別見笑；常以數組或TStrings來保存節點數據的朋友，倒可以看一看。
我以比較常見的部門樹來舉例說明 -- 我們構建部門樹，並在樹節點中顯示部門名稱，當用戶選擇樹中的節點時，顯示部門相應的數據（比如人員列表）。我們知道，因為部門名稱有可能重復，因此部門樹中不能以部門名稱來定位，只能以部門代碼來定位，故我們要將部門代碼保存在樹節點中。
首先，申明一個結構來用以保存你的節點數據：
Type
TUnitNodeInfo = record
UnitCode : string;
{在這個記錄中，你還可以保存一些其它自己感興趣的數據，比如部門經理等。。。}
end;
接著，申明一個指針指向那個結構：
PUnitNodeInfo : ^TUnitNodeInfo;
接著看一看建樹的處理：
procedure CreateUnitTree;
var
TreeNode : TTreeNode;
NodeInof : PUnitNodeInfo;
begin
...
{在此的打開數據表、提取數據很多文檔中有論及，我就不再重復}
TreeNoe := TreeView.Items.AddChild(...);
TreeNode.ImageIndex := ;{設置節點圖標索引，當然也可以不在此設置而在TreeView的事件中設置}
New(NodeInof);{為節點指針分配內存}
with NodeInfo^ do
begin
UnitCode := ;{對節點數據屬值}
......
end;{with...}
TreeNode.Data := NodeInof;
.....{上面代碼放在復合語句中，增加樹中每一個節點}
end;
然後，在TreeView的OnChange事件中，可以這樣取得節點數據：
var
UnitCode : string;
begin
UnitCode :- TUnitNodeInfo(TreeView.Items[索引].Data^).UnitCode;
.........
end;
最後，不用樹的時候，記得釋放樹節點指針：
var
I : integer;
begin
for I := 0 to TreeView.Items.Count - 1 do
begin
Dispose(TreeView.Items[I].Data);
TreeView.Items[I].Data := nil;
end;
end;
ListView的相關用法與此類似，就不再講了。寫了這些，也不知道能不能讓各位看明白，有不對的地方，請多指教。
