Re: GetItem - AddItem - Table

Return to index

Author

Message

David Novo

Posted: 03/15/2005 4:58:25

Another way to think about it, is to copy the entire document to a

stream and insert it into the new document. Then delete the non-table

items. It is clearer how to delete an item than how to assign table

properties (as well as the contents of all the table cells)

Carlos Bon wrote:

>

> 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