JSON is valid or not

[geldis]

Okay.

Eine der kleineren typischen Dateien:

Code:

{
  "Version": "1",
  "ID": "Zeptor",
  "IncompatibleIds": ["Jokola"],
  "Dependent": null,
  "Lapforce": {
    "English": "much",
    "French": null,
    "German": "Viel",
    "Italian": null,
    "Japanese": null,
    "Korean": null,
    "Polish": null,
    "Russian": null,
    "Spanish": null,
    "Taiwanese": null
  },
  "Name": "Turandot",
  "Contact": "",
  "Image" : null
}

Der Code für Testzwecke :

Delphi-Quellcode:

procedure TMainForm.TestBtnClick(Sender: TObject);
var
TEST : TSTringlist;
begin
  Test := TStringlist.Create;
  Test.LoadFromFile('F:\Zerberus\Json\info.JSON');
  If TJsonObject.ParseJsonValue(Test.Text) = nil then Shomessage('Error') else Showmessage('No Error');
end;

Bei 78 Dateien ist immer Error.

geldis