delphi json取key

 GlotticClosure :=TStringList.Create;

  GlotticClosure.Clear;
  GlotticClosure.Add('完全=0');
  GlotticClosure.Add('前部裂隙=0');
  GlotticClosure.Add('不规则=0');
  GlotticClosure.Add('梭形=0');
  GlotticClosure.Add('后部裂隙=0');
  GlotticClosure.Add('沙漏状=0');
  GlotticClosure.Add('不完全=0');
  GlotticClosure.Delimiter :='|';
  strList :=GlotticClosure.DelimitedText;
  {for i := 0 to GlotticClosure.Count - 1 do
  begin
    ShowMessage(GlotticClosure.Names[i]+':的值为:'+GlotticClosure.ValueFromIndex[i]);
  end; }

 GlotticClosure.Clear;
 GlotticClosure.Delimiter :=';';
 GlotticClosure.DelimitedText :='R={"正常":0,"轻度减低":1,"中度减低":0,"消失":0};L={"正常":0,"轻度减低":100,"中度减低":0,"消失":0}';
 // 右边
 json :=SO(GlotticClosure.ValueFromIndex[0]);
 //左边
 json2 :=SO(GlotticClosure.ValueFromIndex[1]);

 for i :=0 to json2.AsObject.count -1 do
 begin
   Memo1.Lines.Add(json2.AsObject.GetNames.AsArray[i].AsString+':'+json2.AsObject.GetValues.AsArray[i].AsString);
 end;