Форум программистов, компьютерный форум, киберфорум
Delphi
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Нужен пример кода для курсовой "Модель производственной фирмы" нужен пример кода для курсовой "Модель производственной фирмы" есть таблицы и код бэйсика , если есть для делфи поделитесь https://www.cyberforum.ru/ delphi/ thread1286932.html Использование разных массивов в одной процедуре Delphi
Всем привет, столкнулся с такой задачей: Есть процедура Redraw_XY(ArrayX,ArrayY); Где по замыслу ArrayX,ArrayY - это имена массивов, которые могут быть заданы пользователем. Вопрос в том,...
Delphi Как обойтись без условных переходов? И снова здравствуйте. Еще интересует чем можно заменить условные переходы (if..else). Опять же, if..else в дебагере отображаются как джампы если я не ошибаюсь , и обойти их проще некуда. Интересует... https://www.cyberforum.ru/ delphi/ thread1286534.html Delphi Delphi и шифрация кода Опять я. И опять у меня возникают вопросы, поскольку я любопытный. Можно ли каким-то образом зашифровать весь код написанный в дельфи? Т.е. я хочу спастись от дебаггеров. (Накрыть протектором .ехе... https://www.cyberforum.ru/ delphi/ thread1286388.html
Создать приложение для шифрования/дешифрования файла ASCII методом Delphi
Необходимо создать приложение для шифрования/дешифрования файла ASCII методом в Delphi. Так же должен присутствовать исходный код программы. В программировании не силен, поэтому прошу помощи в...
Delphi Как мне сделать вывод Фигуры не кликом, а так: нажимаю-выбираю нужный размер-отпускаю вот фигура https://www.cyberforum.ru/ delphi/ thread1285906.html
Delphi Не работает ластик https://www.cyberforum.ru/ delphi/ thread1285891.html
unit Unit4; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ExtDlgs, ComCtrls; type TForm4 = class(TForm)
Лексический анализатор. Кто сможет сделать? Delphi
Нужно. Задания А: 2. Написать простейшую программу на любом известном вам языке программирования (Даны два числа. Найти среднее арифметическое их квадратов и среднее арифметическое их модулей.)...
Delphi Написать приложение состоящее из 2-х форм Написать приложение состоящее из 2-х форм. На первой расположить: Четыре текстовых поля, в которых задаются максимально и минимально возможные размеры второй формы: -Кнопку «Форма2», при нажатий на... https://www.cyberforum.ru/ delphi/ thread1285648.html Delphi Создание классов в Delphi https://www.cyberforum.ru/ delphi/ thread1285585.html
Вот такое задание .... Входные данные: массив символов Действие: выполняет преобразование( транслитерация) в латиницу с заменой всех заглавных на строчные символы Выход: преобразованная строка ...
Подскажите, как правильно объявить area Delphi
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Grids; type TForm1 = class(TForm)
Delphi Как найти в системе ярлык (.lnk) с определенными свойствами? Под свойствами я имею ввиду какую программу запускает(Google Chrome к примеру). Еще нужно изменить свойство называющееся "Объект". Пока что я не нашел ни одной библиотеки или функции в Delphi,... https://www.cyberforum.ru/ delphi/ thread1284618.html
58 / 48 / 25
Регистрация: 17.12.2013
Сообщений: 221
29.10.2014, 03:10 0

Дерево каталога диска C - Delphi - Ответ 6781954

29.10.2014, 03:10. Показов 1810. Ответов 13
Метки (Все метки)

Лучший ответ Сообщение было отмечено ZzZombo-_-FIL как решение

Решение

Цитата Сообщение от ZzZombo-_-FIL Посмотреть сообщение
но дал ограничения, нельзя использовать Shell Tools(или подобное), Командную строку, directory outline( и listbox)
Я так понял что твой препод хочет что бы ты использовал TreeView и функции FindFirst и FindNext в рекурсии.
7 лет назад я то же самое делал.

Добавлено через 8 минут
Блин глянул я на все выше написанное...
За полтора дня ты не успеешь даже с компонентом TreeWiew разобраться, а с работой рекурсии и подавно. Лови Рабочий пример, но клянись выучить эту тему.

На форму кидай компонент TTreeView, создавай обработчик OnCreate формы и меняй код согласно этому:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls;
 
type
  TForm2 = class(TForm)
    TreeView1: TTreeView;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure GetFileList(const Path: String; ParIt: TTreeNode);
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
  Path: String = 'C:\';  // Начальная папка для просмотра
 
implementation
 
{$R *.dfm}
 
procedure TForm2.FormCreate(Sender: TObject);
begin
  GetFileList(Path, TreeView1.Items.AddChild(nil, Path));
end;
 
procedure TForm2.GetFileList(const Path: String; ParIt: TTreeNode);
var
  Rec: TSearchRec;
  P: TTreeNode;
begin
  if FindFirst(Path + '*.*', faAnyFile, Rec) = 0 then
  repeat
    if (Rec.Name = '.') or (Rec.Name = '..') then Continue;
    P := TreeView1.Items.AddChild(ParIt, Rec.Name);
    if (Rec.Attr and faDirectory) <> 0 then GetFileList(Path + Rec.Name + '\', P);
  until FindNext(Rec) <> 0;
  FindClose(Rec);
end;
 
end.


Вернуться к обсуждению:
Дерево каталога диска C Delphi
2
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.10.2014, 03:10
Готовые ответы и решения:

Дерево каталогов диска
Как можно вывести дерево каталогов в ListView? Добавлено через 3 часа 52 минуты Где можно найти...

Командная строка \ дерево каталога
Необходима помощь в командной строке))) перехожу в текущую папку командой: C:\Users\EVGENY&gt;cd /d...

Компонент TreeView дерево каталога
Часто возникает задача отображения древовидной структуры. К примеру, для отображения структуры...

Перебор каталога и добавление его структуры в дерево TreeView
Добрый день, дорогие форумчане. У меня возникла небольшая проблема. Мне нужно перебрать все файлы и...

13
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.10.2014, 03:10

Содержимое корневого каталога логического диска А
помогите написать программу, выводящую содержимое корневого каталога логического диска А!...

Написать программу, выводящую в TreeView дерево каталогов, а в ListView содержимое выбранного каталога
Нужно сделать программульку выводящую в TreeView дерево каталогов, а в ListView содержимое...

Библиотека или класс для построения иерархии каталога жесткого диска
Привет всем. Ищу библиотеку, с помощью которой я смогу реализовать выбор для открытия какого-либо...

Вывести список только файлов без дополнительной информации каталога INSTRUCT диска С:
Выведите список только файлов без дополнительной информации каталога INSTRUCT диска С: напишите...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.