[mORMot] JSON 파싱하기

mORMot의 SynCommons 추가

uses
  SynCommons;

_JsonFast 사용

procedure JsonParse(Context : string);
var
  doc : Variant;
begin
  //ConText = {Name : TeakHyun, Homepage : developist.tistory.com}
  doc := _JsonFast(Context);

  ShowMessage(doc.Name);
  ShowMessage(doc.Homepage);
end;

※Context에 쓰레기 값이나 중괄호로 묶여서 오면 변환이 안 됩니다.