Re: I have a problem with the tables

Return to index

Author

Message

Sergey Tkachenko

Posted: 11/05/2002 0:09:55

The procedure below calls DOSOMETHINGWITHTEXT() for each text item in the

document, including items in tables.

uses CRVData;

procedure ProcessAllText(RVData: TCustomRVData);

var i,r,c: Integer;

     table: TRVTableItemInfo;

begin

for i := 0 to RVData.Items.Count-1 do

  if RVData.GetItemStyle(i)>=0 then begin // this is a text item

    s := RVData.GetItemTextA(i);

    DOSOMETHINGWITHTEXT(s);

    end

  else if RVData.GetItemStyle(i)=rvsTable then begin

    table := TRVTableItemInfo(RVData.GetItem(i));

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

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

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

          ProcessAllText(table.Cells[r,c].GetRVData);

  end;

end;

call

ProcessAllText(RichView.RVData);

Note: GetItemTextA is added in the latest version (1.6.55). If you do not

have this version, you can use RVData.Items[i] instead.

> Hi, again:

>

> I have a problem with the tables. Handling a documentary Manager and I

> obtain the text of the document by styles, and store the texts in very

> sections.

> But, the text of the tables I do not obtain it. How to get all the text

the

> my table.

>

> Thank Sergey.

>

> --

> Antonio G�mez

> M3D, S.L.

>

>