+1 800 256 3608 (toll-free in North America) or +49 7531 90 60 10| service@combit.com

Delphi und DOM


(Guest) #1

Hallo Forum,

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?

Grüße,
der Bernd


(Guest) #2

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;

end;
end;


(Guest) #3

Danke, jetzt gehts … ich bin erst jetzt dazu gekommen das einzubauen.