Delphi 2010 Json Синтаксический

Question

Как разобрать эту строку здесь на Delphi 2010:

{"list": [{"id": "107","name": "John","fname": "Doe"}, 
      {"id": "108","name": "Alex","fname": "Man"}], 
    "success": 1, 
    "count": "2"} 

Answer 1

procedure parse_3; 
var 
    txt: PAnsiChar; 
    js: TJSONArray; 
    lat: string; 
    i: integer; 
begin 
    try 
    txt := 
     '{"list": [{"id": "107","name": "John","fname": "Doe"},{"id": "108","name": "Alex","fname": "Man"}],"success": 1, "count": "2"}'; 

    js := ParseJSON(txt); 
    except 
    end; 
    if Assigned(js) and (js is TJSONObject) then 
    begin 
    if js.field['success'].value = 1 then 
    begin 
     for i := 0 to StrToInt(js.field['count'].value) - 1 do 
     begin 

     showmessage(js.field['list'].child[i].field['id'].value +' | '+js.field['list'].child[i].field['name'].value +' | '+js.field['list'].child[i].field['fname'].value); 
     end; 
    end; 
    end; 
end;