Re: Checkpoint count

Return to index

Author

Message

Yernar

Posted: 12/10/2002 21:15:35

Well, if you have checkpoints in table cells, then this routine will be useful

for you:

function TForm1.GetCheckpointCountEx(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) <> rvsTable) and (RVData.GetItemCheckpoint(i)

<>

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

    end;

end;

>"visitorrr" <[email protected]> wrote:

>>

>>How to count the number of checkpoint in a RVF file ?

>>Thank you !