List & Label

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;

So lässt sich jeder erste Absatz eines Textobjektes ausgeben:

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;