sguruapp@gmail.com
facebook vk instagram Одноклассники youtube

Как вывести все названия файлов лежащие в определённом каталоге в 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;

Возврат к списку

обучись профессии будущего

Хочешь стать успешным разработчиком
приложений? Тогда добро пожаловать к нам.

обучись профессии будущего