Page Comparison

var  
ps: IPlanSwift;
  est: IItem;
  itm: IItem;
begin
  // Create Planswift Interface
  ps := coPlanswift.Create;
  // Get the estimating tab
  est := ps.GetItem('Job\Takeoff');
  // Create a new Item
  itm := est.NewItem('Area', 'Property Result Example Example');
  // Show the Property Result as variant
  ShowMessage('Property Formula: ' + VarToStr(itm.GetPropertyResult('Qty')));
  // Free Planswift
  ps := nil;