Re: Questions about words & paragraph & picture ?

Return to index

Author

Message

Yernar FoxTail

Posted: 11/18/2002 9:09:18

To obtain the number of paragraph:

function GetParaCount(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

      if RVData.IsParaStart(i) then Inc(Result)

      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, GetParaCount(table.Cells[r, c].GetRVData));

      end;

end;

"david" <david2002@free.fr> wrote:

>How can i get the number of words and paragraph and number of picture in

>RichViewEdit ?

>Thank for your answer...