treeview的data属性？

Question

楼主老弟，你是想把数据库中记录查出来生成树形结构吧
with query1 do
  begin
     close;
     open;
     first;
     while not eof do
     begin
       cblender.Items.Add(fieldbyname('lender_type').asstring+'@'+fieldbyname('lender_name').asstring);
       next;
     end;
  end;
这是1层，多层用嵌套，有email没？我发2个例子给你

Answer 1

在DADA可以保存ID,也可以保存记录指针

Answer 2

声明一个记录类型,假设数据里面有这两个字段,Name和Age
PMyRecord = ^TMyRecord;
TMyRecord = record
  Name: string;
  Age:  Integer;
end;
procedure TForm1.RecordToTreeNode;
var
  MyRecord: PMyRecord;
begin
  New(MyRecord);
  with Table1, TreeView1 do
  begin
    MyRecord^.Name := FieldByName('Name').AsString;
    MyRecord^.Age := FieldByName('Age').AsInteger;
    Items.AddChildObject(nil, 'test', MyRecord);
  end;
end;//读取
procedure TForm1.TreeView1Change(.....);
begin
  ShowMessage(PMyRecord(Node.Data)^.Name);
  ShowMessage(IntToStr(PMyRecord(Node.Data)^.Age));
end;