Syntax

code

Procedure: Delete;


Description

Deletes the Item and its children from the system.


Code Reference

code

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

var

  ps: IPlanSwift;

  est: IItem;

  itm: IItem;

  rslt: Boolean;

  sect: IItem;

begin

//create the Planswift Interface

ps := coPlanswift.Create;

//Get the Estimating tab

  est := ps.GetItem('Job\Takeoff');

  //Create a new Item

  itm := est.NewItem('Area', 'psDelete Example');

  //Show the property dialog box

  rslt := itm.Edit(true);

  //if ok pressed in dialog box then

  if rslt then begin

    //Create a new Section

    sect := itm.NewSection('psDelete Section');

    //Start Recording

    sect.DoRecord;

  end else begin

    //Eles delete the item

    itm.Delete;

  end;

  //Free Planswift

  ps := nil;