Page Comparison

var  
ps: IPlanSwift;
  est: IItem;
  itm: IItem;
begin
  // Create the Planswift Interface
  ps := coPlanswift.Create;
  // Get the Estimating tab
  est := ps.GetItem('Job\Takeoff');
  // Get the Selected item
  itm := ps.SelectedItem;
  // Show the Qty as Integer
  ShowMessage('Property Formula: ' + IntToStr(itm.GetPropertyResultAsInteger
        ('Qty', 0)));
  // Free Planswift
  ps := nil;
end;