home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / norskdata.tar.gz / norskdata.tar / ndkhit.pas < prev    next >
Pascal/Delphi Source File  |  1985-06-24  |  613b  |  30 lines

  1. procedure nil_sub_trees(ptr : item_ptr);
  2.  
  3. var index : integer;
  4.  
  5. begin
  6.     ptr^.sub_items := nil;
  7. end;
  8.  
  9.  
  10. procedure find_empty_sub_item(curr_item : item_ptr;
  11.                               var return_ptr : item_ptr);
  12.  
  13. var ptr,hold : item_ptr;
  14.  
  15. begin
  16.     ptr := curr_item^.sub_items;
  17.     if ptr = nil then
  18.         return_ptr := nil
  19.     else
  20.         begin
  21.             repeat
  22.                 hold := ptr;
  23.                 ptr := ptr^.adj_item;
  24.             until ptr = nil;
  25.             return_ptr := hold;
  26.         end;
  27. end;
  28.  
  29. 
  30.