+7 771 559 26 76
sguruapp@gmail.com
Меню
×
Мобильные
приложения
Курсы по
программированию
Цены
на услуги
Наши
контакты
Guru
music
Блоги
Новости
Отзывы
Как вывести все названия файлов лежащие в определённом каталоге в ListBox - Delphi
var
sr
: TSearchRec;
gPath
:string; \\ Путь к папке
begin
if
FindFirst(gPath +'\*.*',
faAnyFile
, sr) =
0
then
begin
repeat
ListBox1
.
Items
.
Add
(gPath+'\'+
sr
.Name);
until
FindNext
(sr)=0;
FindClose
(sr);
end
;
end;
Возврат к списку
обучись профессии будущего
Хочешь стать успешным разработчиком
приложений? Тогда добро пожаловать к нам.
Позвоните мне