TUNITreeView convert to json

[mohamb01]

How to convert TUNITreeView to json???

Any Idea?

 

[Sherzod]

Hi,

 

Which edition and build are you using?

[mohamb01]

Delphi Rad Studio 10.2 Tokyo

Extjs 4.2

[mhmda]

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;