treeview 節點有text屬性顯示值,有沒有什麼屬性保存值?? data或itemid好像都不對)

Question

哈哈，原来我也是到这卡住的……极度关注UPUPUPUPUPUPUPUPUPUP

Answer 1

var
   TitleNode,DetailNode: TTreeNode;     
  TitleNode := Items.AddChild(nil,DM2.CDS_BBSTitle.FieldByName('bbs_name').AsString; ---相黨於賦值text TitleNode.data:=pointer(DM2.CDS_BBSTitle.FieldByName('bbs_id').AsString); showmessage(string(titleNode));应该是可以的

Answer 2

showmessage(string(titleNode.data));最后错了

Answer 3

TitleNode := Items.AddChild(nil,DM2.CDS_BBSTitle.FieldByName('bbs_name').AsString; TitleNode.Text:=DM2.CDS_BBSTitle.FieldByName('bbs_id').AsString;—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　

Answer 4

Items.AddChild(nil, DM2.CDS_BBSTitle.FieldByName  ('bbs_name').AsString, PChar(DM2.CDS_BBSTitle.FieldByName('bbs_id').AsString));

Answer 5

TO  lxpbuaa(桂枝香在故国晚秋):
   
 你說的不對.
   Items.AddChild / TitleNode.Text  是一樣的...

Answer 6

TO  lxpbuaa(桂枝香在故国晚秋): 
   
   不對.  參數多了一個.
   

Answer 7

with DM2.CDS_BBSTitle, TreeView1 do
  Items.AddChildObject(nil, FieldByName('bbs_name').AsString, PChar(FieldByName('bbs_id').AsString));

Answer 8

可以使用链表解决这个问题(TList)
Sample:
...
PTest = ^TTest
TTest = Packed Record
   Name : String[ 32 ];
   Age  : Integer;
End;P : PTest;
List : TList;
...List := TList.Create;
GetMem( P, SizeOf( TTest) );
P^.Name := 'a';
P^.Age := 12;Node:= ListView1.Items.AddChild( Nil, 'Test');
Node.Data := P;

Answer 9

to : dageming(执子之手，与子偕老)    TitleNode.data:=pointer(DM2.CDS_BBSTitle.FieldByName('bbs_id').AsString);    用data存 bbs_id 有問題的.我在讀出Node.Data時並不是原先存的值,爾是一些隨機數.為什麼????procedure TfTrainBBS.TVBBSGetSelectedIndex(Sender: TObject;
  Node: TTreeNode);
begin
      test.Caption :=string(Node.Data);///是一些隨機數,不是原先存的bbs_id 
end;

Answer 10

Data属性中记录的是数据存储位置的指针，并不是数据的内容！

Answer 11

自己解決了.DetailNode.SelectedIndex:=DM2.CDS_BBSDetail.FieldByName('bbs_id').AsInteger;