массив из имен

← →
Niakris © (2004-08-06 20:26) [0]

привет!
помогите по проблеме:
Как составить массив из всех имен файлов содержащихся в папке?

← →
olookin © (2004-08-06 20:30) [1]

var s: array of string;

SetLenght(s,ПАПКА_КАУНТ_ЛЕНГТ);
for i:=0 to ПАПКА_КАУНТ-1 do
s[i]:=ПАПКА_КАУНТ_ЭЛЕМЕНТ[i];

← →
Niakris © (2004-08-06 20:33) [2]

И кто там кого канует?

← →
Андрей Сенченко © (2004-08-06 20:35) [3]

FindFirst - FindNext - FindClose

ну и безусловно F1

← →
Niakris © (2004-08-06 20:43) [4]

простите, я не догоняю!
Что есть:
ПАПКА_КАУНТ_ЛЕНГТ
ПАПКА_КАУНТ-1
ПАПКА_КАУНТ_ЭЛЕМЕНТ

← →
TUser © (2004-08-06 20:59) [5]

С этого начинали все программеры. И с иконки в трее тоже. См. факи - куча инфы на эту тему.

← →
Fay © (2004-08-06 21:26) [6]

А что такое [3] - догоняешь?

нет.
Да блин, я любитель, а вы меня такими страшными словами загрузили, аж жуть.

Только не спрашивай "что такое Memo1?" 8)
type TFilesArray = array of string; procedure YourCoolProc(cPath : string; var a : TFilesArray); var fh : DWORD; fd : _WIN32_FIND_DATAA; begin fh := FindFirstFile(PChar(cPath+"*"), fd); if fh = INVALID_HANDLE_VALUE then RaiseLastOSError; SetLength(a, 0); FillChar(fd, SizeOf(fd), 0); repeat if (fd.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then begin SetLength(a, High(a) + 2); a[High(a)] := fd.cFileName; end; until not FindNextFile(fh, fd); Windows.FindClose(fh); end; procedure TForm1.Button1Click(Sender: TObject); var a : TFilesArray; i : Integer; begin YourCoolProc("c:\", a); Memo1.Lines.Clear; for i := Low(a) to High(a) do Memo1.Lines.Add(a[i]);

Мммм, надо попробовать.
Спасибо.

массив из имен Найти похожие ветки