Скачать: CL | DM;

TreeView   Найти похожие ветки 

← →
xman ©   (2004-08-11 20:01) [0]

Ув. мастера, как узнать в какую ветвь вложен объект?
Например:
такое дерево
new
 1
   a
   sdf
 2
   b
      asdfg
   vb
 3
Мне надо получить при выборе "asdfg" такой результат
new\2\b\asdfg

---

← →
афвуд   (2004-08-11 20:58) [1]

var
cur:TTreeNode;
....

cur:=TreeView1.GetFirstNode;
while(cur<>nil)
 begin
 if(cur->Text"asdfg") then break;
 cur:=cur.GetNext;
 end;

if(cur=nil) then begin ShowMessage("Нет такого"); exit; end;

//Ну теперь всё. В cur нужный элемент. Теперь можно по
//Parent"ам добраться до корня забрасывая все Text по пути
//куда-нибудь. ПИсать это влом чесно говоря.

---

← →
jack128 ©   (2004-08-11 21:00) [2]

function Path(Node: TTreeNode): string;
begin
Result := "";
while Assigned(Node) do
begin  
  Result := Result + Node.Text + "\";
  Node := Node.Parent;
end;
SetLength(Result, Length(Result) - 1);
end;

---

← →
jack128 ©   (2004-08-11 21:02) [3]

> Result := Result + Node.Text + "\";
наоборот, конечно.
Result := Node.Text + "\" + Result;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c