Загнать список директория в Combobox

← →
KidMan © (2002-10-09 22:22) [0]

Привет Мастерам и таким как я ;))
Посоветуйте пожалуйста... как занести список файлов дериктория... вместе с подкаталогами в ... например в combobox... или просто список каталогов и файлов диска С...?
Или хотя бы подскажите плиз... функции для работы с каталогами... а то я ничего не нашел в хелпе дельфей... Книг у меня нет пока... не могу себе позволить... а интуитивный поиск по названиям функций ничео не дал...

Кстати... а правда что в дельфи нет функции копирования файлов и нужно обращаться к функции API ??

Но главное... ответьте плиз на первый вопрос...

Всем удач и заранее благодарю!

← →
Song © (2002-10-09 22:28) [1]

TSearchRec
LB_DIR

← →
Anatoly Podgoretsky © (2002-10-09 22:34) [2]

И ругательное слово FindFirst в доплонении к TSearchRec.
Для работы с файлами так же есть несколько десятков функций, включая копирование.
Насчет книг ты прав, без них тяжело будет, все таки надо или купить или скачать, это если на русском, а так с самой дельфе есть несколько на английском, неплохие довольно.
Так же на этом сайте есть и FAQ

← →
MsGuns © (2002-10-09 23:45) [3]

WinApi:
CreateDir (ForceDir) - создание каталогов
DirectoryExists - проверка наличия каталога
SelectDirectory - Установка каталога без смены текущего
ChkDir - Установка каталога со сменой текущего
RemoveDir (RmDir) - Удаление пустого каталога
MatchesMask - Проверка по маске файла (и не только)
FindFirst/FindNext - Опрос состава файлов в каталоге
GetDir - Текущий каталог

А вообще посмотри исходник Борланда C:\Program Files\Borland\Delphi6\Source\VCL\FileCtrl.pas - там все они и описаны (в основном). А инструкцию: выдели имя процкдуры в любом юните проекта и {F1}. Хэлпы на апи у Борланда весьма классные (правда, на Инглише)

function GetDBFileList(Dir: string; sl: TStrings; Mask: string): boolean; // Выборка из указанного каталога имен файлов по маске в список var res: integer; flDsc: TSearchRec; begin result := false; sl.Clear; if Dir[Length(Dir)] <> "\" then Dir := Dir + "\"; if Not DirectoryExists(Dir) then begin sl.Add("** Каталога "+Dir+" нет !"); exit; end; res := FindFirst(Dir+Mask,faAnyFile,flDsc); While res=0 do begin if (flDsc.Attr and faDirectory)<>faDirectory then sl.Add(flDsc.Name); res := FindNext(flDsc); end; FindClose(flDsc); result := true; // MainForm.lblDOSDir.Caption := Dir; end;

Фрагмент живой проги

s:="c:\windows\*.bmp";
ListBox1.Perform(LB_DIR, DDL_READWRITE, Longint(@s[1]));

Добавление файлов по маске ;)

Желаю успехов

Загнать список директория в Combobox Найти похожие ветки