JSON is valid or not

[Uwe Raabe]

Dann stimmt was mit deinen Dateien nicht. Ob ich das Json als String-Konstante oder in einer Datei speichere, ich bekomme immer No Error.

Delphi-Quellcode:

const
  cJson = '  {'#13#10 +                        // 0
    '  "Version": "1",'#13#10 +                // 1
    '  "ID": "Zeptor",'#13#10 +                // 2
    '  "IncompatibleIds": ["Jokola"],'#13#10 + // 3
    '  "Dependent": null,'#13#10 +             // 4
    '  "Lapforce": {'#13#10 +                  // 5
    '    "English": "much",'#13#10 +           // 6
    '    "French": null,'#13#10 +              // 7
    '    "German": "Viel",'#13#10 +            // 8
    '    "Italian": null,'#13#10 +             // 9
    '    "Japanese": null,'#13#10 +            // 10
    '    "Korean": null,'#13#10 +              // 11
    '    "Polish": null,'#13#10 +              // 12
    '    "Russian": null,'#13#10 +             // 13
    '    "Spanish": null,'#13#10 +             // 14
    '    "Taiwanese": null'#13#10 +            // 15
    '  },'#13#10 +                             // 16
    '  "Name": "Turandot",'#13#10 +            // 17
    '  "Contact": "",'#13#10 +                 // 18
    '  "Image" : null'#13#10 +                 // 19
    '}'#13#10;                                 // 20
var
  TEST: TSTringlist;
begin
  TEST := TSTringlist.Create;
  try
    TEST.Text := cJson;
    if TJsonObject.ParseJsonValue(TEST.Text) = nil then
      Showmessage('Error')
    else
      Showmessage('No Error');
  finally
    TEST.Free;
  end;
end;