indexdef.pas

Delphi利用MVC开发的典型例子

unit indexDef;
//this unit contains the public define for indexTreeView and IndexTreeMdl

interface


type
  PIndexNode = ^TIndexNode;
  PResponseInfo = ^TResponseInfo;

  TResponseInfo = record
    CMD: string;
    Response: string;
    ActualMean: string;
  end;

  TIndexNode = record
    ID: string; //unique id of a node
    Name: string; // the node name
    ImageIndex: Integer;
  end;


implementation

end.