GetItem - AddItem - Table

Return to index

Author

Message

Carlos Bon

Posted: 03/14/2005 18:09:07

Hi, Sergey

I need to move all the tables in a document to other document.

Do you have any suggestion?

I'm trying do this using GetItem and AddItem methods but I'm not sure that

is the correct way.

var i : integer;

    table : TRVTableItemInfo;

begin

   for i := doc.ItemCount - 1 downto 0 do

   begin

      if doc.GetItemStyle(i) = rvsTable then

      begin

          table := TRVTableItemInfo (doc.getItem(i));

          doc2.AddItem('table' + inttostr(cont), table);

      end;

   end;

end;

Carlos Bon