Работа с файлами
Виталик___ © (2006-02-12 21:06:00)
В директории ./Data есть несколько файлов с расширением *.us
Как мне создать массив sl[i], где i - кол-во файлов, а sl
имеет тип string и равен имени файла.
Спасибо.
Чародей (2006-02-12 22:21:00) [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 используй динамический
массив
Наверх 
ЧАТ |
Орешник |
|
