delphi利用指针,结构或component存储数据表数据

方法一: component 释放时候有自动垃圾回收功能
type
  TDepartMent = class(TComponent)
  private
    FName: string;
    FID: string;
    FPARENT_ID: string;
    FCompanyID: string;
    FType: TDepartType;
    FWareID: string;
    FEnabled: Boolean;
  public
    property DepartmentName: string read FName write FName;
    property ID: string read FID write FID;
    property PARENT_ID: string read FPARENT_ID write FPARENT_ID;
    property CompanyID: string read FCompanyID write FCompanyID;
    property DepartmentType: TDepartType read FType write FType;
    property WareID: string read FWareID write FWareID;
    property Enabled: Boolean read FEnabled write FEnabled;
    constructor Create(AOwner: TComponent); override;
  end;
 
 
  procedure LoadNodes(ParetNode: TTreeNode);
  var
    Node            : TTreeNode;
    CDS             : TClientDataSet;
    DepartMent      : TDepartMent;
  begin
    CDS := TClientDataSet.Create(nil);
    CDS.XMLData := ADataSet.XMLData;
    CDS.Filter := 'PARENT_ID=' + '''' + TDepartMent(ParetNode.Data).ID + '''';
    CDS.Filtered := False;
    CDS.Filtered := True;
    with CDS do
    begin
      First;
      while not EOF do
      begin
        DepartMent := TDepartMent.Create(ATree);
        DepartMent.ID := FieldByName('DEPA_ID').AsString;
        DepartMent.PARENT_ID := FieldByName('PARENT_ID').AsString;
        DepartMent.DepartmentName := FieldByName('NAME').AsString;
        DepartMent.CompanyID := FieldByName('COMP_ID').AsString;
        DepartMent.DepartmentType := dtDepartment;
        DepartMent.FWareID := FieldByName('WARE_EXTENDED_ID').AsString;
        Node := ATree.Items.AddChild(ParetNode, DepartMent.DepartmentName);
        Node.Data := DepartMent;
        if DepartMent.ID = OldID then
          ATree.Selected := Node;
        LoadNodes(Node);
        Node.Expanded := False;
        Next;
      end;
    end;
    CDS.Free;
  end;