cptree.pas

来自「生物信息学中的遗传数据分析的delphi源码。」· PAS 代码 · 共 49 行

{*******************************************************************
*                                                                  *
*  COMPONENT for MS DOS and Windows source code.                   *
*                                                                  *
*  (c) 1992, Roderic D. M. Page                                    *
*                                                                  *
*  Language: Turbo Pascal (Pascal with object-oriented extensions) *
*  Compiler: Turbo Pascal 6.0 (MS DOS)                             *
*            Turbo Pascal for Windows 1.0 (WINDOWS)                *
*                                                                  *
*  Notes:    Program interface is currently Windows specific.      *
*                                                                  *
*******************************************************************}

{$I CPDIR.INC}

{$IFNDEF COMPONENT}
	{$DEFINE NCBI}
{$ENDIF}



{ THINGS TO DO OR THINK ABOUT:

  Add a LABEL_PTR field to basic tree type so
  don't need to pass labels as a var parameter.
  Would clean up some code, and could print
  trees without labels,

  e.g.

  proc T.LabelTree (L: LPtr);
     T.LPtr := L

  if Labeled then
     Print(Label)
  else Print (Index)
}



{

   Objects
   -------


   BASEOBJECT                  [ declared in CPWBASE.PAS ]