trichview.com

trichview.support




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 !





Powered by ABC Amber Outlook Express Converter