bestlong 怕失憶論壇

標題: 將 TVirtualStringTree 內的資料取出 [打印本頁]
作者: bestlong    時間: 2009-12-9 09:14     標題: 將 TVirtualStringTree 內的資料取出

將 VirtualStringTree 資料逐項取出並在 Memo1 中列出
  1. type
  2.   PNodeData2 = ^TNodeData2;
  3.   TNodeData2 = record
  4.     Part_num,
  5.     Part_nam: WideString;
  6.   end;

  8. procedure TForm1.Button1Click(Sender: TObject);
  9. var
  10.   myNode: PVirtualNode;
  11.   myNodeData: PNodeData2;
  12. begin
  13.   Memo1.Clear;
  14.   myNode := VirtualStringTree1.GetFirst;
  15.   while Assigned(myNode) do
  16.   begin
  17.     myNodeData := VirtualStringTree1.GetNodeData(myNode);
  18.     Memo1.Lines.Add(myNodeData^.Part_num + ' ' + myNodeData^.Part_nam);
  19.     myNode := VirtualStringTree1.GetNext(myNode);
  20.   end;
  21. end;
複製代碼




歡迎光臨 bestlong 怕失憶論壇 (http://www.bestlong.idv.tw/) Powered by Discuz! X1.5