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

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

← →
Виталик___   (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 вся ветка

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



Память: 0.44 MB
Время: 0.023 c