Property - Expression - FD

var  
ps: IPlanSwift;             
  itm: IItem;
  prop: IPropertyObject;
  est: IItem                
begin
 //Create planswift Interface
    ps := coplanswift.Create;
    //Get the Estimating Tab
    est := ps.Getitem('Job\Takeoff');
    //get Ps Property Example Item if exists
    itm := est.GetItem('PS Property Examples');
    //Delete It
    if not varisclear(itm) then begin             
      ps.deleteItem(itm.guid);    
    end;
    //Create a new Item
    itm := est.newItem('Part','PS Property Examples');
 
   //EXPRESSION EXAMPLE
    //Write Expres
    expr := 'if ([qty] < 0) then Result := ' + chr(39)+ 'Qty value not zero' + chr(39);
    expr := expr + 'else Result := ' + chr(39) + 'Qty value is zero' + chr(39);
    //Create a new Property and set formula to the exp above
    prop := itm.NewProperty('EXPRES Example',expr,ptText);
    //Set its Expres To True
    prop.Expression := true;                   
    //Set to API Group
    prop.Group := 'API EXAMPLES';
     
    //Show The Item Properties Box
    itm.Edit(true);
    //Free the planswift interface
    ps := nil;
end;