Получение списка файлов в каталоге

отредактировано 05:31 Раздел: FastReport 4.0
Понадобилось перебрать файлы каталога в режиме Run-Time

procedure Button3OnClick(Sender: TfrxComponent);
var
vShell, vFolder, vFolderItems: Variant;
i: Integer;
begin
vShell := CreateOleObject('Shell.Application');
vFolder := vShell.NameSpace('C:\Temp');
vFolderItems := vFolder.Items();
for i := 0 to vFolderItems.Count-1 do
ShowMessage(vFolderItems.Item(I).Name);
vShell := nil;
end

Может есть штатные средства?

Оставить комментарий

Многофункциональный текстовый редактор. Чтобы отредактировать стиль параграфа, нажмите TAB, чтобы перейти к меню абзаца. Там вы можете выбрать стиль. По умолчанию не выбран ни один стиль. Когда вы выберете текст, появится встроенное меню форматирования. Нажмите TAB, чтобы войти в него. Некоторые элементы, такие как многофункциональные вставки ссылок, картинок, индикаторов загрузки и сообщений об ошибок могут быть вставлены в редактор. Вы можете перемещаться по ним, используя стрелки внутри редактора и удалять с помощью клавиш delete или backspace.