read all component

Return to index

Author

Message

Christophe

Posted: 10/28/2002 18:15:15

Hello,

to read and find component I do this:

for i:= 0 to RichViewEdit1.ItemCount-1 do begin

    ItemStyle := RichViewEdit1.GetItemStyle(i);

    case ItemStyle of

       rvsComponent:

          GetControlInfo(i,false);

       rvsTable: begin

         aTable := TRVTableItemInfo(RichViewEdit1.RVData.GetItem(i));

         for r:= 0 to aTable.Rows.Count-1 do

           for c:= 0 to aTable.Rows[r].Count-1 do

             if aTable.Cells[r,c]<>nil then

               for j:= 0 to aTable.Cells[r,c].GetRVData.Items.Count-1 do

               begin...

But if in a cell of table, I inserted an another table and in one cell of

this table, I inserted a component, how to reach it?

Regards.

Christophe