[SOLVED] SynEdit JSON

[pcurtis]

Hi All,

Can SynEdit be used to format and high the following text, for example :

{"status_code":7,"status_message":"Invalid API key: You must be granted a valid key.","success":false}

If so how?

Thanks in advance.

[Martin_fr]

I do not know, if there currently is a json highlighter (I don't think I've seen one). But if not there is a tutorial on the wiki how to write a highlighter.

About formatting: SynEdit does not change the format of a text. So it will not nicely wrap and indent the text.
You would need your own formatting code.

[pcurtis]

OK. I found a JSON beautifier

https://www.example-code.com/delphiDll/json_pretty_print.asp

But the result doesn't display correctly in SynEdit, in a Memo it's OK.

There seems to be a problem with CR+LF. See attachment.

Does SynEdit handle these differently?

How can I control it?

Thanks.

[varianus]

Some time ago i've found and adapted a json highlighter for synedit, you can find it here: https://github.com/varianus/ovotext/blob/master/highlighters/synhighlighterjson.pas.

On this unit https://github.com/varianus/ovotext/blob/master/supportfuncs.pas you can find a quite working FormatJson function.

[pcurtis]

I'm not sure what to do with these files 

[paweld]

Formatting json:

Code: Pascal  [Select][+][-]

1. uses
2.   fpjson, jsonparser, jsonscanner;
3.  
4. procedure TForm1.Button1Click(Sender: TObject);
5. var
6.   jpar: TJSONParser;
7. begin
8.   jpar:=TJSONParser.Create(MemoSrc.Lines.Text, [joUTF8]);
9.   MemoDest.Lines.Text := jpar.Parse.FormatJSON([], 2);  
10.   jpar.Free;
11. end;

[pcurtis]

Thanks

[Edson]

To create a custom SynEdit Highlighter, exists SynFacilSyn: https://github.com/t-edson/SynFacilSyn