TTreeview

[crit]

возможно ли построить дерево таким образом: есть папка Kurs ,в ней файлы(разделы) .Раньше я просто находил файлы в папке и отбражал их в дереве

var
  SR: TSearchRec;// поисковая переменная
  FindRes: Integer;
 Node1: TTreeNode;
begin
 TV2.Items.Clear;
 FindRes:= FindFirst('.\kurs\\*.test',faAnyFile,SR);
      while FindRes = 0 do
        begin
           Form2.TV2.Items.Add(node1,SR.Name); //добавляем название найденного элемента
           FindRes:=FindNext(SR); // прродожение поиска по задангому условию
           end;
           FindClose(SR);

а терь нужно чтобы они были как разделами. Тоесть главный нод название папки (она находица в папке с прогой) а а то что в ней должны отображаться как дочерние

[Stilet]

Тоесть главный нод название папки (она находица в папке с прогой) а а то что в ней должны отображаться как дочерние

Ниче не понял... Нарисуй структуру.
Может тебе нужен рекурсивный поиск и построение?

[crit]

ну есть папка kurs на диске, в ней файлы. нужно отобразить в виде дерева. тоесть я отобразил тока файлы(код выше), а мне надо чтобы отображалась папка, а в ней отображались файлы таким же образом как у меня в коде выше

[Stilet]

а мне надо чтобы отображалась папка

Во-первых, тебе нужно все файлы в одной ветке отображать (т.е. у тебя будет одна единственная главная ветка, в которой будут накиданы файлы)? или среди файлов могут быть папки, в них подпапки и т.д.

Во-вторых: А не проще ли взять скажем компонент ShellTreeView или ему подобный?

[crit]

нет,папок и подпапок не должно быть.. Я незнаю получица ли если я буду использовать ShellTreeView, открыть файл теста в тестировании..
Просто у меня система тестирования,я щелкаю в дереве по файлу и открывается форма тестирования уже с вопросами и ответами из этого файла
вот отрывок из функции когда я щелкаю на файл теста в дереве и открывается форма тетсирования:

assignfile(Test, Form2.TV.Selected.Text);
count:=0; //Обнуляем счетчик вопросов и счетчик правильных ответов
truecount:=0;
path:='';
path:=Form2.TV.Selected.Text+'\kurs \.test';
Form1.Caption:=GetTestName(path,'te st')+' - Тест'; //Запоминаем путь к файлу


поэтому я и думаю лучше всего Treeview

[Stilet]

Думаю тебе нужно вот такое:

var sr:TSearchRec; i:integer; tn:TTreeNode;
begin
 FindFirst('d:\*',faAnyFile,sr);
 tn:=TreeView1.Items.Add(nil,'Главное');
 repeat
 TreeView1.Items.AddChild(tn,sr.Name);

 until FindNext(sr)<>0;
end;

[crit]

так,а есои надо будет 2 папки отобразить и содержимое? то повторить
tn:=TreeView1.Items.Add(nil,'Главно е2');?

[crit]

еще один вопрос , отображается в дереве как *.test, можно както вырезать .test?

[Stilet]

так,а есои надо будет 2 папки отобразить и содержимое? то повторить

Ну оформи это в виде функции и вызывай сколько нужно.

Вообще может тогда тебе просто сделать стандартный рекурсивный обход по папкам?

отображается в дереве как *.test, можно както вырезать .test?

Ну да. Ты ж туда просто строку загоняешь, вот и вырезай все до последней точки
или типа такого:

 TreeView1.Items.AddChild(tn,Copy(sr.Name,1,length(sr.Name)-5));