mohamb01 Posted March 17, 2018 Share Posted March 17, 2018 How to convert TUNITreeView to json??? Any Idea? Link to comment Share on other sites More sharing options...
Sherzod Posted March 18, 2018 Share Posted March 18, 2018 Hi, Which edition and build are you using? Link to comment Share on other sites More sharing options...
mohamb01 Posted March 18, 2018 Author Share Posted March 18, 2018 Delphi Rad Studio 10.2 Tokyo Extjs 4.2 Link to comment Share on other sites More sharing options...
mhmda Posted November 17, 2018 Share Posted November 17, 2018 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 More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now