有關TreeView的問題...煩請各位高手回答..謝謝!! |
|
缺席
|
|
minjiu
中階會員   發表：27 回覆：119 積分：69 註冊：2002-06-26 發送簡訊給我 |
因為自己一直試了很久...都做不出想要的結果,所以煩請各位高手回答..謝謝!! 假設我有資料檔,有以下2個欄位,請問要如何利用TreeView,以Tree的方式表現出來... [TreeID] [TreeName]
=======================
1 ROOT
1,1 AA
1,1,1 A1
1,1,1,1 A11
1,1,2 A2
1,1,3 A3
1,2 BB
1,2,1 B1
1,3 CC
1,3,1 C1
======================== TreeView產生結果:
ROOT
---AA
| ---A1
| | -A11
| ---A2
| ---A3
---BB
| ---B1
---CC
---C1
|
|
minjiu
中階會員 發表：27 回覆：119 積分：69 註冊：2002-06-26 發送簡訊給我 |
呼~~雖然沒有寫的很好...但自己終於試出來了...^^ procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
tslTemp : TStringList;
begin
tslTemp := TStringList.Create;
tslTemp.Delimiter := ','; Table1.First;
while not Table1.Eof do
begin
tslTemp.DelimitedText := Table1.FieldValues['TreeID']; if tslTemp.Count = 1 then
begin
if itvTreeView.Items.Count = 0 then
begin
itvTreeView.Items.Add(nil,Table1.FieldValues['TreeName']);
end;
end; if tslTemp.Count > 1 then
begin
for i := 0 to itvTreeView.Items.Count-1 do
begin
if (itvTreeView.Items[i].Level = (tslTemp.Count-2)) and (itvTreeView.Items[i].Index = (StrToInt(tslTemp[tslTemp.Count-2])-1)) then
begin
itvTreeView.Items.AddChild(itvTreeView.Items[i],Table1.FieldValues['TreeName']);
break;
end;
end;
end; Table1.Next;
end; tslTemp.Free;
end;
|
|
SUNSEAVE
一般會員  發表：66 回覆：44 積分：22 註冊：2003-09-23 發送簡訊給我 |
|
|
minjiu
中階會員 發表：27 回覆：119 積分：69 註冊：2002-06-26 發送簡訊給我 |
|
|
SUNSEAVE
一般會員 發表：66 回覆：44 積分：22 註冊：2003-09-23 發送簡訊給我 |
發表時間：2003-10-30 14:55:26
IP:218.164.xxx.xxx 未訂閱
系統時間：2024-07-07 16:50:34
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |