Re: How to select text in table(x,y)?

Return to index

Author

Message

Sergey Tkachenko

Posted: 02/27/2003 15:06:44

This function returns text in the (r,c)-th cell of the table (note: r is

y-coord, c is x-coord)

uses CRVData;

function GetCellText(table: TRVTableItemInfo; r,c: Integer): String;

var i: Integer;

     cell: TCustomRVData;

begin

  cell := TCustomRVData(table.Cells[r,c].GetRVData);

  if cell.ItemCount=0 then begin

    Result := '';

    exit;

  end;

  Result := cell.GetItemTextA(0);

  for i := 1 to cell.ItemCount-1 do begin

    if cell.IsFromNewLine(i) then

      Result := Result + #13#10;

    Result := Result+cell.GetItemTextA(rv, i);

  end;

end;

>

> Hi;

>    First I thanks for yop<ur previouse help.

>

>    Some of my documents are include table. Some of table has got a total

> field (or calculated field). But I don't know what text in the cells.

Because

> the user input at the cells. So I want to take text in the table(x,y).

>   How can I do this?

>

>   Example : The table cells  (x -> The col number, y-> the row number

shows)(The

> table may be contain merge cells)

>    (x1,y1) (x2,y1) (x3,y1) (x4,y1)

>    (x2,y2)         (x3,y2) (x4,y2)

>    (x3,y3) (x3,y3)         (x4,y3)

>    I want to select text (x4,y1) and (x4,y2) by sequence.  The (x4,y3) is

> sum of (x4,y1) and (x4,y2).

>

>   Thanks for your help again.

>

> Zekeriye;