Текущий архив: 2002.10.17;
Скачать: CL | DM;

Вниз

dir   Найти похожие ветки 

← →
kima ©   (2002-08-05 18:30) [0]

Не знаю много ли этот вопрос спрашивался
но как узнать имена файлов в директории
и положить их в array of string?

---

← →
Странный Прохожий ©   (2002-08-05 18:35) [1]

См. FAQ или

FindFirstFile() -- FindNextFile() -- CloseHandle() Win32 API

---

← →
kima ©   (2002-08-05 20:17) [2]

спасибо щас буду разбираться

---

← →
zavdim   (2002-08-06 08:36) [3]

var Source: string;
sr: TSearchRec;
FileAttrs: Integer;
Files : TStringList;
begin
Files := TStringList.Create;
FileAttrs :=faAnyFile;
Source:= YorsDirectory+"\";
if FindFirst(Source+"*.*", FileAttrs, sr) = 0 then
begin
repeat
Files.Add(sr.Name)
until FindNext(sr) <> 0
end;
//---
//А тут чего надо то и делай
//--
end;

---

← →
Song ©   (2002-08-06 08:41) [4]

>>и положить их в array of string?
Самый лёгкий array of String: TListBox+LB_DIR

---

← →
zavdim   (2002-08-06 11:15) [5]

2Song

А чем TStringList не нравится?

---

← →
Song ©   (2002-08-06 11:29) [6]

>А чем TStringList не нравится?
Да нравится, просто нужно ещё цикл с TSearchRec делать.

---

← →
Dimka Maslov ©   (2002-08-07 12:30) [7]

http://delphibase.endimus.com/?action=viewfunc&topic=fileops&id=10046

---

Страницы: 1 вся ветка

Текущий архив: 2002.10.17;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.016 c