[r7]: / trunk / json / json-pac / Functions / STRUCT_TO_JSON / CloseObject / svnobj  Maximize  Restore  History

Download this file

11 lines (10 with data), 2.2 kB

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
METHOD CloseObject
VAR
	indent:		INT;
========================================================================================================*)
IF Format THEN
	FOR indent:= 1 TO JSONVars^[jsonvarindex].ParentVar-1 DO
		objectstr:= CONCAT(objectstr, GPL_JSON.INDENT);	
	END_FOR
END_IF
objectstr:= CONCAT(objectstr, '}');