Скачать: CL | DM;

Загнать список директория в 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}. Хэлпы на апи у Борланда весьма классные (правда, на Инглише)

---

← →
MsGuns ©   (2002-10-09 23:48) [4]

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;

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

---

← →
Rouse_ ©   (2002-10-09 23:53) [5]

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c