GetValue ( '/dialog/max', false ) then WindowState := wsMaximized finally c. GetValue ( '/dialog/sizey', Height ) SetBounds ( nLeft, nTop, nW, nH ) if c. GetValue ( '/dialog/sizex', Width ) nH := c. GetValue ( '/dialog/posy', Top ) nW := c. GetValue ( '/dialog/posx', Left ) nTop := c. Filename := GetAppPath ( cFileHistory ) nLeft := c. LoadOptionsPos var nLeft, nTop, nW, nH : Integer c : TJSONConfig begin c := TJSONConfig. SetValue ( '/dialog/sizey', Height ) end finally c. SetValue ( '/dialog/max', WindowState = wsMaximized ) if WindowState wsMaximized then begin c. Filename := GetAppPath ( cFileHistory ) c. SaveOptionsPos var c : TJSONConfig begin c := TJSONConfig.
FREE PASCAL MAX FILE NAMES FREE
Note: it's necessary to free jData when you have finished with it. Add ( 'Happy', True ) // add a new sub-array jArray := TJSONArray. Integers := 123 // retrieve the second color s := jData. Get ( 'Fld1' ) // change value of Fld2 jObject. FormatJSON // cast as TJSONObject to make access easier jObject := jData as TJSONObject // retrieve value of Fld1 s := jObject. AsJSON // output as nicely formatted JSON s := jData. Uses fpjson, jsonparser procedure JSONTest var jData : TJSONData jObject : TJSONObject jArray : TJSONArray s : String begin // this is only a minimal sampling of what can be done with this API // create from string jData := GetJSON ( '' ) // output as a flat string s := jData.
You'd have to use the Find method (available since FPC 2.6.2) to first check if the element ('price' in this example) exists.įcl-json contains the unit "fpjsonrtti" which is used to load objects (TObject instances) from or save them to JSON format. SomeJSONObject.Integers may give a SIGSEGV/Access Violation if that integer variable does not exist.
0 kommentar(er)
