Форум: "Начинающим";
Текущий архив: 2006.02.26;
Скачать: [xml.tar.bz2];
Вниз
Работа с файлами Найти похожие ветки
← →
Виталик___ (2006-02-12 21:06) [0]В директории ./Data есть несколько файлов с расширением *.us
Как мне создать массив sl[i], где i - кол-во файлов, а sl имеет тип string и равен имени файла.
Спасибо.
← →
Чародей © (2006-02-12 22:21) [1]procedure FindF(var List:TStrings; const Path: string);
var
FPath:string;
FindHandle:THandle;
FindData:TWin32FindData;
begin
if Path="" then Exit;
FPath:=Path;
if FPath[Length(FPath)]<>"\" then
FPath:=FPath+"\";
FindHandle := FindFirstFile("*.*", FindData);
if FindHandle <> INVALID_HANDLE_VALUE then
repeat
if (FindData.cFileName[0]<>".") then
List.Append(FPath+FindData.cFileName);
until not FindNextFile(FindHandle, FindData);
if FindHandle <> INVALID_HANDLE_VALUE then
Windows.FindClose(FindHandle);
end;
Если очень надо то вместо List используй динамический массив
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.02.26;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.042 c