|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
29.08.2007, 16:10 | #1 |
Александр
Форумчанин
Регистрация: 15.08.2007
Сообщений: 112
|
Дерево каталогов в табличной форме
Можно ли отображать содержимое определенной папки (имена файлов и папок) в StringGride? Если да, то как?
Например, если в ComboBox-е выбрать имя какой-нить папки (Путь к ней присвоен в переменной), то в StringGrid-е отображаются имена файлов и папок, содержащиеся в данной папке. |
29.08.2007, 16:27 | #2 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
Findfirest +F1
Findnext +F1 Findclose Stringgrid.cells...
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
29.08.2007, 16:30 | #3 |
Александр
Форумчанин
Регистрация: 15.08.2007
Сообщений: 112
|
Простите, не совсем понятно с последней вашей строчкой.
|
29.08.2007, 16:44 | #4 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
<имя компонента Tstringgrid>.cells[col,row]:='текст'
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
30.08.2007, 09:34 | #5 |
Александр
Форумчанин
Регистрация: 15.08.2007
Сообщений: 112
|
Если не трудно, можно примерчик? А то у меня сплошные ошибки...
|
30.08.2007, 09:42 | #6 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
Раз у вас ошибки, показывайте что сделали, укажим где ошиблись
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
30.08.2007, 09:56 | #7 |
Александр
Форумчанин
Регистрация: 15.08.2007
Сообщений: 112
|
procedure TForm1.ComboBox1Click(Sender: TObject);
var sr: TSearchRec; FileAttrs: Integer; begin with StringGrid1 do begin RowCount := 0; if FindFirst(memo1.Lines.Strings[1], FileAttrs, sr) = 0 then begin repeat if (sr.Attr and FileAttrs) = sr.Attr then begin RowCount := RowCount + 1; Cells[1,RowCount-1] := sr.Name; end; until FindNext(sr) <> 0; FindClose(sr); end; end; end; |
30.08.2007, 09:57 | #8 |
Александр
Форумчанин
Регистрация: 15.08.2007
Сообщений: 112
|
Оно-то работает, но результат никакой, не отображается...
|
30.08.2007, 11:12 | #9 |
Александр
Форумчанин
Регистрация: 15.08.2007
Сообщений: 112
|
Всё, спасибо, уже не надо, я разобрался.
|
30.08.2007, 12:45 | #10 |
Александр
Форумчанин
Регистрация: 15.08.2007
Сообщений: 112
|
А еще вопрос: можно ли сделать отображение дерева каталогов например в TreeView, но с корневой папкой, выбранной мною (Путь к ней присвоен в переменной)?
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Имена каталогов и подкаталогов | Xandr | Общие вопросы Delphi | 11 | 29.03.2010 21:36 |
Помогите как сделать отображение каталогов??? | SANTA_KLAUD | Общие вопросы Delphi | 6 | 30.04.2008 23:47 |
список каталогов | VVVadim | Общие вопросы Delphi | 11 | 03.04.2008 13:00 |
компонент в котором в табличной форме осуществлялся вывод вводимых мной данных | Максим-2 | Компоненты Delphi | 1 | 22.07.2007 13:31 |
древо каталогов | Dunpeal | Компоненты Delphi | 6 | 21.11.2006 06:22 |