Page Comparison

procedure psgetPropertyFormula;
var
  ps: IPlanSwift;
  itm: IItem;
  propvalue: WideString;
begin
  //Create the Planswift Interfacev
  ps := coplanswift.Create;
  //Get the selected Item
  itm := ps.SelectedItem;
  //Set the property value
  propvalue := ps.GetPropertyFormula(itm.GUID,'Name');
  //Chece if Property value is empty
  if propvalue <> '' then
    ShowMessage(propvalue);
  //Free Planswift Interface
  ps := nil;
end;