trichview.support
Re: I have a problem with the tables |
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. > > |
Powered by ABC Amber Outlook Express Converter