Работа с файлами

← →
Виталик___ (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 используй динамический массив

Работа с файлами Найти похожие ветки