TmscrDATAItem

type TmscrDATAItem = class(TObject)

public

  destructor Destroy; override;

  procedure Clear;

  function Root;

  function Add;

  procedure AddItem();

  procedure Assign();

  procedure InsertItem();

  function Find();

  function FindItem();

  function IndexOf();

  function PropExists();

  property Data: Pointer; [rw]

  property Name: string; [rw]

  property Text: string; [rw]

  property Count: Integer; [r]

  property Items []: TmscrDATAItem; default; [r]

  property Parent: TmscrDATAItem; [rw]

  property Prop []: string; [rw]

end;

TmscrDATAItem

TObject