JWan Wiki

This is an old revision of the document!

---

1. Add McJson.pas into project
2. Add mcjson into uses clause
3. Add variable and assign it as TMcJsonItem (ie: var js : tmcjsonitem; )
4. Create the variable (ie: var := TMcJsonItem.create(); )
5. free the variable when not in use

var
  Form1: TForm1;
  js : TMcJsonItem;
  
procedure TForm1.FormShow(Sender: TObject);
begin
   js := TMcJsonItem.create();
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   js.Free;
end;