| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как вывести в TMemo содержимое определённой папки [D6, D7, WinXP]
Volf_555 © (2005-10-18 23:56:00)Есть папка E:\Files
Каким образом, не используя дополнительных компонентов, вывести содержимое этой папки?
Германн (2005-10-19 02:19:00) [1]2 Fay © (19.10.05 01:49) [5]
Пока что это вопрос. А намёки будут потом, если...
Fay (2005-10-19 01:49:00) [2]2 Германн © (19.10.05 1:32) [4]
Это намёк на ListBox/CombBox ? 8)
Германн (2005-10-19 01:32:00) [3]А так ли уж нужно именно TMemo?
TStas (2005-10-19 00:38:00) [4]if FindFirst(Folder+'*.*', sr)<>0 then
repeat
Memo1.Lines.add(sr.Name)
until FindNext(sr)=0
FindClose(sr)
TStas (2005-10-19 00:38:00) [5]if FindFirst(Folder+'*.*', sr)<>0 then
repeat
Memo1.Lines.add(sr.Name)
until FindNext(sr)=0
FindClose(sr)
Fay (2005-10-19 00:02:00) [6]2 Volf_555 (18.10.05 23:56)
FindFirst + F1
| |
