Example: calculating a number of characters

Return to index

Author

Message

Sergey Tkachenko

Posted: 09/24/2002 13:56:47

uses CRVData;

function GetCharCount(RVData: TCustomRVData): Integer;

var i,r,c: Integer;

     table: TRVTableItemInfo;

begin

Result := 0;

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

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

    inc(Result, RVData.ItemLength(i))

  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

          inc(Result, GetCharCount(table.Cells[r,c].GetRVData));

  end;

end;

Call:

r := GetCharCount(RichView.RVData);

This function does not count images, etc.