Форум: "Система";
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];

Вниз

Помогите пожалуйста!   Найти похожие ветки 

← →
GrEG   (2001-12-04 16:08) [5]


procedure GetFiles(sl:TstringList;DirName,FileMask:string);
var
sr:TSearchRec;
i:integer;
begin
if sl = nil then exit;
sl.Clear;
i:=FindFirst(DirName+"\"+FileMask,faAnyFile,sr);
try
while i = 0 do begin
sl.Add(DirName+"\"+sr.Name);
i:=FindNext(sr);
end;
finally
FindClose(sr);
end;
end;

Синтаксис не проверял, но, в основном, код такой.
Естественно, sl должно быть создано до вызова процедуры.
Вызови процедуру как GetFiles(sl,GetCurrentDir,"*.dll") и в sl получишь список файлов.

---

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

Форум: "Система";
Текущий архив: 2002.03.11;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.006 c