mohamb01 Posted March 17, 2018 Share Posted March 17, 2018 How to convert TUNITreeView to json??? Any Idea? Quote 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? Quote 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 Quote 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; Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.