Page Comparison

var  
ps: IPlanSwift;
  itm: IItem;
  prop: IPropertyObject;
  i: Integer;
 
begin
  // Create Planswift Interface
  ps := coPlanswift.Create;
  // Get the Selected Item Parent
  itm := ps.SelectedItem.ParentItem;
  // Loop through all properties and delete
  for i := itm.PropertyCount - 1 downto 0 do
  begin
    // Get Property at index i
    prop := itm.PropertyItem[i];
    // delete the property
    itm.deleteProperty(prop.Name)
  end;
  // Show the property dialog box
  itm.Edit(true);
  // Free Planswift
  ps := nil;