Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Электроный учебник(TreeView+html)

Автор: BEST13 10.9.2010, 23:58

Здраствуйте, ув. програмисты!
Собрался написать мини-учебник. Я хочу сделать оглавление при помощи Treeview. Структура будет проста(Корень(папка с програмой) > Разделы(Подпапки) > Страницы(папки с html и картинки, апллеты) ). Но код который я использую для ТreeView проходит все папки и файлы, в том числе и файлы картинок и апллетов.

В тоже время, я не знаю как связать пункт с адресом к странице или может я что тот не так делаю?

Посоветуйте, как мне правильно всё реализовать или выбрать лучшие компоненты?
Вот мой код:

Код


procedure TForm1.FilePathToTreeNode(aTreeView: TTreeView; aRoot: TTreeNode;
  Path: string; Recurse: boolean);
var
  NewNode : TTreeNode;
  SRec : TSearchRec;
begin
  if FindFirst(Path + '*.*', SysUtils.faAnyFile, SRec) = 0 then
  repeat
    if (sRec.Name = '.') or (sRec.Name = '..') then
      Continue;

    NewNode := aTreeView.Items.AddChild(aRoot, SRec.Name);
    if Recurse and ((srec.Attr and sysutils.faDirectory) <> 0) then
      FilePathToTreeNode(aTreeView, NewNode, Path + srec.name + '\', True);

  until FindNext(SRec) <> 0;
end;



procedure TForm1.FormCreate(Sender: TObject);
begin
  FilePathToTreeNode(TreeView1, nil, 'D:\Downloads\', True);
end;

Автор: BEST13 12.9.2010, 17:52

Сделал другим способ, повторил всю структуру в папках и теперь беря путь в дерева добавляю расширение файла и и открываю это путь в в Вебраузере.