Re: List of Checkpoints

Return to index

Author

Message

Yernar

Posted: 12/19/2002 15:44:19

procedure TForm1.FillListBoxesWithCheckpoints;

var

  Tag: Integer;

  Name: string;

  CheckPointData: TCheckPointData;

  RaiseEvent: Boolean;

begin

  CheckpointData := RichViewEdit1.GetFirstCheckPoint;

  while CheckpointData <> nil do begin

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

    NameListBox.Items.Add(Name);

    TagListBox.Items.Add(IntToStr(Tag));

    CheckpointData := RichViewEdit1.GetNextCheckpoint(CheckpointData);

  end;

end;

"visitorrr" <[email protected]> wrote:

>

>I want to make the list of the Checkpoints who are in my RVF file. I have

>one list for the tag and one list for the name. Please correct my code :

>

>procedure TFormGotoCheckpoint.FormCreate(Sender: TObject);

>var cp: TCheckpointData;

>begin

>  if FormeCourrante.RichViewEdit1.GetFirstCheckpoint <> nil then

> begin

>   cp := FormeCourrante.RichViewEdit1.GetFirstCheckpoint;

>   cmbEditNomCheckpoint.Items.Add(cp.Name);

>   cmbEditTagCheckpoint.Items.Add(IntToStr(cp.Tag));

>  while FormeCourrante.RichViewEdit1.GetNextCheckpoint(cp) <> nil do begin

>     cp := FormeCourrante.RichViewEdit1.GetNextCheckpoint(cp);

>     cmbEditNomCheckpoint.Items.Add(cp.Name);

>     cmbEditTagCheckpoint.Items.Add(IntToStr(cp.Tag));

>  end;

> end;

>end;

>

>Thanks a lot !