Как прочитать описание отчёта без его открытия?
Есть каталог с отчётами.
Необходимо в StringList загрузить названия этих отчетов.
Если я пишу
Возможно, как то прочитать ReportOptions.Name без использования LoadFromFile и без парсинга самого файла отчёта?
Необходимо в StringList загрузить названия этих отчетов.
Если я пишу
try
try
frx:=TfrxReport.Create(nil);
sl:=TStringList.Create;
Found:=FindFirst(Path+'*.*',faAnyFile-faDirectory-faVolumeID,sr);
while Found=0 do
begin
frx.Clear;
frx.LoadFromFile(Path+sr.Name);
if frx.ReportOptions.Name='' then
sl.Add(Path+sr.Name)
else
sl.Add(frx.ReportOptions.Name);
Found:=FindNext(SR);
end;
SysUtils.FindClose(SR);
except
end;
finally
FreeAndNil(frx);
end;
Возможно, как то прочитать ReportOptions.Name без использования LoadFromFile и без парсинга самого файла отчёта?
Комментарии