Page Comparison

var  
ps: IPlanSwift;
  est: IItem;
  i: Integer;
  itm: IItem;
  txt: String;
begin
  // Create Planswift Interface
  ps := coPlanswift.Create;
  // Get the estimating tab
  est := ps.GetItem('Job\Takeoff');
  // Loop Through all Child items on the estimating tab
  for i := 0 to est.ChildCount - 1 do
  begin
    // Get the child item
    itm := est.ChildItem[i];
    // Write the chiled item to the text
    txt := txt + itm.Name + #13#10;
  end;
  // Show the all the child items on the first level
  ShowMessage('First Level estimating Items:' + #13#13 + txt);
  // Free planswift
  ps := nil;