in meinem Delphi-Projekt versuche ich aus einem LL17-Report alle Footerzeilen zu entfernen.
Ich bin schon so weit, dass schon die Objekte wie im DOMViewer finde, konkret:
Objects.ReportContainer.SubItems.Item[0].Lines
An der Stelle sind dann die Daten- Fußzeilen etc. in weiteren Listen.
Ich kann auch die Datenzeilen löschen :.Data.Clear() aber beim Footer geht das nicht und ich bekomme eine Zugriffsverletzung. Dasgleiche auch bei GruppenHeadern etc.
Hat da jemand irgendeine Idee, was da schief geht?
Mal auf die Schnelle:
…
// remove footer-lines
for i := 0 to lldomproj.ObjectList.Count - 1 do
begin
domObject := lldomproj.ObjectList.Items[i];
if(Assigned(domObject)) then
begin
if(domObject.ObjectType = ‘ReportContainer’)then
begin
domReportContainer := TLlDOMObjectReportContainer(domObject);
for j := 0 to domReportContainer.SubItems.Count - 1 do
begin
if(domReportContainer.SubItems.Items[j].ObjectType = ‘Table’)then
begin
domTable := TLlDOMSubItemTable(domReportContainer.SubItems.Items[j]);
domFooter := TLlDOMTableLineFooterList(domTable.Lines.Footer);
while (domFooter.Count > 0) do
begin
domFooter.DeleteSubobject(0);
end;
end;
end;
end;