Форум: "Основная";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];
ВнизЗагнать список директория в 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 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c