有關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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |