Syntax

code

Function: ResultAsInteger: Integer;


Description

Returns the property result as an integer if possible.


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

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

procedure psPropertyResults;

var

  ps: IPlanSwift;

  itm: IItem;

  txt: string;

  propString: String;

  propFloat: Extended;

  PropInt: Integer;

  propvariant: OleVariant;

  prop: IPropertyObject;

begin

  //Create the Planswift Interface

  ps := coPlanswift.Create;

  //Get the Selected item

  itm := ps.SelectedItem;

  //IF no Item is selected then exit

  if varisclear(itm) then begin

    showMessage('Please Select an Item');

    ps := nil;

    exit;

  end;

  //Get the parent Item

  itm := itm.parentItem;

  //Get the name Property as a string

  prop := itm.GetProperty('Type');

  propString := prop.ResultAsString;

  //Get the Qty value as Float or Extended

  prop := itm.GetProperty('Linear Total');

  propFloat := prop.ResultAsFloat;

  //Get the Point Count as an Integer

  prop := itm.GetProperty('Point Count');

  PropInt := prop.ResultAsInteger;

  //Get Takeoff Value as a Variant

  prop := itm.GetProperty('Linear Total');

  propvariant := prop.ResultAsVariant;

  //Set Text and Show Message

  txt := 'Property Type String: ' + propString + #13#10;

  txt := txt + 'Property Linear Total Float: ' + FloatToStr(propFloat) + #13#10;

  txt := txt + 'Property Point Count Integer: ' + IntToStr(propInt) + #13#10;

  txt := txt + 'Property Linear Total Variant: ' + varToStr(propvariant) + #13#10;

 

  ShowMessage(txt);

  //Free Planswift Interface

  ps := nil;

end;