在TreeView节点中存储编号

在TreeView节点中存储编号

function ReadYS(var TV: TTreeView): Boolean;
var
  s : string;
  sName,sID : string;
  pID : PChar;
  NewNode : TTreeNode;
begin
  TV.Items.Clear;
  s := '';
  s := 'select * from mytable';
  with qry do
  begin
    close;
    sql.Clear;
    sql.Add(s);
    Open;
    if not IsEmpty then
    begin
      First;
      while not Eof do
      begin
        sName := FieldByName('name').AsString;
        sID := FieldByName('bh').AsString;
        NewNode := TV.Items.AddChild(Nil,sName);
        GetMem(pID,10);
        StrPCopy(pID,sID);
        NewNode.Data := pID;
        Next;
      end;
    end;
    close;
  end;
end;

取出编号
function  GetBH : String;
var
  s,sys : string;
  pid : PChar;
begin
  if not Assigned(tv.Selected) then exit;
  pid := tv.Selected.Data;
  s := Copy(pid,0,length(pid));
  if (s = '') or (s ='0' ) then exit;
  result := s ;
end;