бинарное дерево

[NewNub]

Здравствуйте. У меня возникла такая проблема. нужно реализовать бинарное дерево, добавлять и удалять от туда элементы. Как это сделать я представления не имею. Кто чем может помогите. Заранее благодарен

[nick17]

можно рекурсией:

procedure ScanTree(Root: String; Level:integer; var ResultList:TStringList);

// Root - Имя папки
// Level - Уровень вложенности, для формирования отступов
// ResultList - Набор строк в который выводится результат работы процедуры

var
sr, sr1:TSearchRec;
Space:String;
i:integer;
begin
//курсор - песочные часы
Screen.Cursor := crHourGlass;

//Формируем отступ
Space:= '';
// for i:=1 to Level do
// Space:=Space + ' ';

//Печатаем название папки
ResultList.Add(Space + UpperCase(Root));

//Перебираем все папки первого уровня вложенности по отношению к папке Root
if FindFirst(Root + '\*.*', faDirectory, sr) = 0 then
while FindNext(sr)=0 do
if (sr.Name <> '.') and (sr.Name <> '..') and ((sr.Attr and faDirectory) = faDirectory) then
begin
//Нашли папку, вызываем ScanTree рекурсивно; Root + '\' + sr.Name - имя вложенной папки
ScanTree(Root + '\' + sr.Name, Level + 1, ResultList);
end;
FindClose(sr);


//Перебираем файлы первого уровня вложенности по отношению к папке Root
if FindFirst(Root + '\*.*', faAnyFile, sr1) = 0 then
while FindNext(sr1) = 0 do
if (sr1.Name <> '.') and (sr1.Name <> '..') and ((sr1.Attr and faDirectory) <> faDirectory) then
//Печатаем название и размер файла с отступом
ResultList.Add(Space + ' ' + sr1.Name + ': ' + format(' %u KB', [round(sr1.Size /1024.0)]));
FindClose(sr1);


end;

я эту процедуру взял из инета