Трудно тут разобраться, так что лучше сразу предложу вот что:
| Цитата(Zero @ 24.10.2004, 17:20) | | Замечание: Посол кстати ты предложил ещё один вариант дерева, но как понему что-либо сделать, ведь там многие вещи (например информация о предках и т.п.) отсутствует, но если ты знаешь как по нему можно-было бы сделать чё-нибудь, то пришли Пример... |
Мдя, забыл про предка...
Вот пример:
| Код |
type
PNode = ^TNode;
TNode = record
Name : string;
Parent, LR, PR : PNode;
end;
function MakeNode(const s, nam : string; ParentNode : PNode) : PNode;
var
p0, p : integer;
line, nam1, nam2 : string;
begin
if nam = '' then
begin
Result := nil;
Exit;
end;
New(Result);
Result.Name := nam;
Result.Parent := ParentNode;
Result.LR := nil;
Result.PR := nil;
p0 := Pos(#13+nam, s)+1;
if p0 = 0 then Exit;
p := PosEx(#13, s, p0);
line := Copy(s, p0, p-p0);
p := Pos(':', line);
Delete(line, 1, p);
p := Pos(',', line);
if p = 0 then p := Length(line)+1;
nam1 := Copy(line, 1, p-1);
Delete(line, 1, p);
nam2 := line;
Result.LR := MakeNode(s, nam1, Result);
Result.PR := MakeNode(s, nam2, Result);
end;
function MakeTree (s : string) : PNode;
var
i : integer;
root : string;
begin
repeat
i := Pos(#10, s);
if i=0 then Break;
Delete(s, i, 1);
until False;
if s[Length(s)] <> #13 then s := s + #13;
i := Pos(#13, s);
root := Copy(s, 1, i-1);
Delete(s, 1, i-1);
Result := MakeNode (s, root, nil);
end;
procedure FreeTree (Root : PNode);
begin
if Root = nil then Exit;
FreeTree(Root.LR);
FreeTree(Root.PR);
Dispose(Root);
end;
function WalkTree (Root : PNode) : string;
begin
if Root.LR <> nil then Result := WalkTree(Root.LR);
if Root.PR <> nil then Result := Result + ' ' + WalkTree(Root.PR);
if (Length(Result) > 0) and (Result[1] = ' ') then Delete(Result, 1, 1);
if Result <> '' then Result := Result + ' ';
Result := Result + Root.Name;
end;
|
MakeTree - создаёт дерево из текста
FreeTree - освобождает дерево (память, занимаемую деревом)
WalkTree - обходит дерево в порядке LRT
Пример юзанья: занеси в Memo1 такой текст:
| Код | 1
1:2,3
2:4,5
3:6,7
4:8
5:9
9:10,11 |
(это то дерево, которое я рисовал для вопроса тебе)
Первая строка - имя вершины-корня
Далее идёт описание дерева:
<имя вершины>:<левый потомок>,<правый потомок>
PS: Имена - не обязательно цифровые
Далее на кнопку повесь такое:
| Код | procedure TForm1.Button5Click(Sender: TObject);
var Tree : PNode;
begin
Tree := MakeTree(Memo1.Text); // создаём дерево
Caption := WalkTree(Tree); // обходим дерево
FreeTree (Tree); // освобождаем дерево
end; |
В результате будет то, что ты написал в качестве ответа...
ИМХО, такая структура более понятна и с неё легче работать, особенно рекурсией...
|
, захаживай почаще к нам!