Форум: "Основная";
Текущий архив: 2004.08.22;
Скачать: [xml.tar.bz2];
Вниз
массив из имен Найти похожие ветки
← →
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] - догоняешь?
← →
Niakris © (2004-08-06 21:53) [7]нет.
Да блин, я любитель, а вы меня такими страшными словами загрузили, аж жуть.
← →
Fay © (2004-08-06 22:04) [8]Только не спрашивай "что такое 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]);
← →
Niakris © (2004-08-07 11:43) [9]Мммм, надо попробовать.
Спасибо.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.08.22;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.039 c
