Jump to content

TUNITreeView convert to json


mohamb01

Recommended Posts

  • 7 months later...
procedure TMainForm.UniButton2Click(Sender: TObject);
var
 i:Integer;
 json:string;
begin
 json:='{"Permissions":[';
 for i := 0 to untrvw.Items.Count-1 do
 begin
  if (not untrvw.Items[i].IsLeaf) and (untrvw.Items[i].Level=0) then
  begin
   if json='{"Permissions":[' then
    json:=json+TWebTreeNode(untrvw.Items[i]).ToJSON
   else
    json:=json+','+TWebTreeNode(untrvw.Items[i]).ToJSON;
  end;
 end;
 json:=json+']}';
 UniMemo1.Text:=json;
end;

 

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...