첨부파일이 올라가지 않아서요...  

아래 질문의 대한 가상 코드입니다.

[질문과 답변] - [질문]LinkedList 질문입니다. 



//------------------------------------------------------------------------------
//
//  Image Array Component
//
//  Bitmap을 메모리상에서 관리함
//
//  History
//    2015.07.20 :  개발 시작
//    2015.07.22 :  Standard VCL Library (std)형식으로 개선
//
//
//------------------------------------------------------------------------------
unit VCL_stdNodes;

interface

uses
  SysUtils, Classes;

Const
  cSnID_Nil  = -1;

Type
  TSnID        = Integer;
  TSnNavi      = (snvFirst,
                  snvPrev,
                  snvCurrent,
                  snvNext,
                  snvEnd);
  TSnInsert    = (sniInsNone,
                  sniInsBefore,
                  sniInsAfter);
  TSnPosition  = (snpErr,  // Not Calc, No Conncted
                  snpSame, // Same Node
                  snpAsc,  // Ascending
                  snpDes); // Descending
  // Node
  pSnNode      = ^TSnNode;
  TSnNode      = Record
                  ID       : TSnID;    // ID
                  Data     : TObject;  // Data [ Generic Data Container ]
                  Prev     : pSnNode;  // Node
                  Next     : pSnNode;
                 End;
  //
  TstdNodes = class(TComponent)
  private
   FStart   : pSnNode;   // Start Node
   FCurrent : pSnNode;   // Cursor
   FAutoID  : Integer;   // Unique ID (Auto Incremental)
  protected
  public
   //
   Procedure Debug       (Strs : TStrings);
   Procedure Clear;
   Function  Count  : Integer;
   Function  AutoID : TSnID;
   //
   Procedure Node_Create (Var Node : pSnNode);
   Function  Node_Free   (Var Node : pSnNode) : Boolean;
   //
   Function  Navi        (Nav     : TSnNavi) : pSnNode;
   Function  Find        (ID      : TSnID  ) : pSnNode;
   Function  FindInx     (Data    : pSnNode) : Integer;
   Function  Sorted      (Src,Tgt : pSnNode) : TSnPosition; overload;
   Function  Sorted      (Src,Tgt : TSnID  ) : TSnPosition; overload;
   Function  Connected   (