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

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

← →
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 вся ветка

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



Память: 0.46 MB
Время: 0.022 c