List & Label

In this manner, all sum variables can be output, here in Delphi:

domPrjList.Open(‘artikel.lst‘, fmOpenOrCreate);

for i := 0 to domPrjList.SumVariableList.Count - 1 do
     ShowMessage(domPrjList.SumVariableList[i].Name + ‘=‘ +
         domPrjList.SumVariableList[i].Content);

domPrjList.Close;

This is how each first paragraph of a text object is output:

domPrjList.Open(‘artikel.lst‘, fmOpenOrCreate);

for i := 0 to domPrjList.ObjectList.Count - 1 do
begin
   if domPrjList.ObjectList[i] is TLlDOMObjectText then
      ShowMessage((domPrjList.ObjectList[i] as
         TLlDOMObjectText).Paragraphs[0].Contents);
end;

domPrjList.Close;