Re: Checkpoint count

Return to index

Author

Message

Yernar

Posted: 12/10/2002 18:00:10

One of the way (very simple example that doesn't include checkpoints in table

cells):

function TForm1.GetCheckpointCount: Integer;

var

  CheckpointData: TCheckpointData;

  Tag: Integer;

  Name: string;

  RaiseEvent: Boolean;

begin

  Result := 0;

  CheckpointData := RichView1.GetFirstCheckPoint;

  while CheckpointData <> nil do begin

    RichView1.GetCheckpointInfo(CheckpointData, Tag, Name, RaiseEvent);

    Inc(Result);

    CheckpointData := RichView1.GetNextCheckpoint(CheckpointData);

  end;

end;

Hope it helps.

"visitorrr" <[email protected]> wrote:

>

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

>Thank you !