Also:

Add:   
 mleParse.Lines.BeginUpdate;
 mleParse.Lines.EndUpdate;

To test timing....


procedure TfrmMainJSON.btnParseClick(Sender: TObject);
var
 JP : TJsonParser;
 i  : integer;
begin
 JP := TJsonParser.Create;
 JP.IncludeEndElementTF := (cbEE.SelectionState = ssSelected);
 JP.ParseJSON(mleSource.lines.Text);
           
 mleParse.Lines.BeginUpdate;
 mleParse.Lines.Clear;


 for i := 0 to JP.json.Count - 1 do
 begin
   mleParse.lines.Add(JP.json[i]);
 end;
 mleParse.Lines.EndUpdate;

 JP.Free;
end;

Parsed 500K in 79 ms  ... how big was your json to get 10 seconds.

Walter

> Parsed 500K in 79 ms  ... how big was your json to get 10 seconds.

It was the same json as in your sample, just unformatted (in one line).
Have to check that out further, just had a quick look this morning.

Uli
 

Walter,
 
> Add:
>    mleParse.Lines.BeginUpdate;
>    mleParse.Lines.EndUpdate;
>
> To test timing....

Yes, that does the trick. Result is displayed immediately.
Thanks.

Uli