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;