аналог TTreeNodes

← →
irq (2004-08-18 16:36) [0]

Здравствуйте! Нужен аналог TTreeNodes без визуалки (сам по себе, без TTreeView). Посоветуйте, где взять. Спасибо

← →
Семен Сорокин © (2004-08-18 16:43) [1]

TList?

← →
jack128 © (2004-08-18 16:47) [2]

На алголист, я так понимаю, тебе дорога.. Раздел "Структуры данных"

← →
jack128 © (2004-08-18 16:48) [3]

А вообще простейшее дерво пишется да десять минут..

← →
TUser © (2004-08-18 17:20) [4]

TTreeNode.Create

← →
irq (2004-08-18 17:25) [5]

Уважаемый, jack128быстродумающийибыстропишушщий, ссылочку на алголист дайте, пожалуйста. Спасибо.

← →
jack128 © (2004-08-18 17:40) [6]

Хотя провел там довольно много времени, но адрес сайта так и неудасужелся запомнить.. Каждый раз через Яндекс ищу ;-)

← →
jack128 © (2004-08-18 17:41) [7]

Ах да.. Адрес Яндекса помню - www.yandex.ru ;-)

← →
TUser © (2004-08-18 17:44) [8]

Алголист живет здесь
algolist.manual.ru
а еще находится любым поисковиком на слово "алгоритмы". Кажется, он там самый первый.

← →
irq (2004-08-18 17:57) [9]

TUser:
TTreeNodes требует в качестве Owner"а TTreeView, иначе access violation на каждый чих. Они сильно повязаны друг с другом

← →
Гаврила © (2004-08-18 18:21) [10]

Ну ведь правда за 10 минут пишется

← →
Sergey_Masloff (2004-08-18 18:27) [11]

jack128 © (18.08.04 17:41) [7]
Гаврила © (18.08.04 18:21) [10]
>Ну ведь правда за 10 минут пишется
Ну, у русских программистов все за 10 минут пишется. На словах.

Мужики, не обижайтесь, но за 10 минут не пишется ничего реально работающее. Никогда. Как бы не казалось что это так ;-)

← →
Sergey_Masloff (2004-08-18 18:28) [12]

Или это я такой тормоз ;-)

> Мужики, не обижайтесь, но за 10 минут не пишется ничего
> реально работающее. Никогда. Как бы не казалось что это
> так ;-)
ну блин, ну не десять, ну 20.. Ладно - 30 минут - чтоб для гарантии :-)

> Sergey_Masloff (18.08.04 18:27) [11]
Мужики, не обижайтесь, но за 10 минут не пишется ничего реально работающее. Никогда. Как бы не казалось что это так ;-)

странно. думаю, что описать структуру узла (пользовательские данные и 2 указателя) и написать 3 процедурки (для добавления, удаления и поиска) - как раз 10 минут. не больше.

вот на это у меня ушло 7,5 минут. С обдумыванием. Но без тестирования ;-)
type TNode = class private FChildren: TList; FParent: TNode; function GetChild(index: Integer): TNode; function GetChildCount: Integer; public constructor Create(AParent: TNode); destructor Destroy; override; property Parent: TNode read FParent; property Children[index: Integer]: TNode read GetChild; property ChildCount: Integer read GetChildCount; end; { TNode } constructor TNode.Create(AParent: TNode); begin FParent := AParent; FChildren := TList.Create; if Assigned(FParent) then FParent.FChildren.Add(Self); end; destructor TNode.Destroy; var i: Integer; begin if Assigned(FParent) then FParent.FChildren.Extract(Self); for i := ChildCount - 1 downto 0 do Children[i].Free; FreeAndNil(FChildren); inherited; end; function TNode.GetChild(index: Integer): TNode; begin Result := TNode(FChildren[index]); end; function TNode.GetChildCount: Integer; begin Result := FChildren.Count; end;

аналог TTreeNodes Найти похожие ветки