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 не нравится?

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

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

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