| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Загнать список директория в Combobox
KidMan © (2002-10-09 22:22:00)Привет Мастерам и таким как я ;))
Посоветуйте пожалуйста... как занести список файлов дериктория... вместе с подкаталогами в ... например в combobox... или просто список каталогов и файлов диска С...?
Или хотя бы подскажите плиз... функции для работы с каталогами... а то я ничего не нашел в хелпе дельфей... Книг у меня нет пока... не могу себе позволить... а интуитивный поиск по названиям функций ничео не дал...
Кстати... а правда что в дельфи нет функции копирования файлов и нужно обращаться к функции API ??
Но главное... ответьте плиз на первый вопрос...
Всем удач и заранее благодарю!
Rouse_ (2002-10-09 23:53:00) [1]s:="c:\windows\*.bmp";
ListBox1.Perform(LB_DIR, DDL_READWRITE, Longint(@s[1]));
Добавление файлов по маске ;)
Желаю успехов
MsGuns (2002-10-09 23:48:00) [2]
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;
Фрагмент живой проги
MsGuns (2002-10-09 23:45:00) [3]WinApi:
CreateDir (ForceDir) - создание каталогов
DirectoryExists - проверка наличия каталога
SelectDirectory - Установка каталога без смены текущего
ChkDir - Установка каталога со сменой текущего
RemoveDir (RmDir) - Удаление пустого каталога
MatchesMask - Проверка по маске файла (и не только)
FindFirst/FindNext - Опрос состава файлов в каталоге
GetDir - Текущий каталог
А вообще посмотри исходник Борланда C:\Program Files\Borland\Delphi6\Source\VCL\FileCtrl.pas - там все они и описаны (в основном). А инструкцию: выдели имя процкдуры в любом юните проекта и {F1}. Хэлпы на апи у Борланда весьма классные (правда, на Инглише)
Anatoly Podgoretsky (2002-10-09 22:34:00) [4]И ругательное слово FindFirst в доплонении к TSearchRec.
Для работы с файлами так же есть несколько десятков функций, включая копирование.
Насчет книг ты прав, без них тяжело будет, все таки надо или купить или скачать, это если на русском, а так с самой дельфе есть несколько на английском, неплохие довольно.
Так же на этом сайте есть и FAQ
Song (2002-10-09 22:28:00) [5]TSearchRec
LB_DIR
| |
