List of Checkpoints

Return to index

Author

Message

visitorrr

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

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 !