Текущий архив: 2005.08.07;
Скачать: 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 вся ветка
Текущий архив: 2005.08.07;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.04 c
