2016-03-01から1ヶ月間の記事一覧
JSON の色々を調査中で、その一環として見つかったので書きます。 こんな書き方すると各方面の方に怒られますが、手続き的に。 procedure TForm1.JSON; var PersonList: TList<TPerson>; JsonObj: TJSONObject; begin PersonList := nil; JsonObj := nil; try PersonL</tperson>…
JSON の色々を調査中で、その一環として見つかったので書きます。 こんな書き方すると各方面の方に怒られますが、手続き的に。 procedure TForm1.JSON; var PersonList: TList<TPerson>; JsonObj: TJSONObject; begin PersonList := nil; JsonObj := nil; try PersonL</tperson>…