八、Delphi10.3はJSONファイルを読み込み、JSONの配列の内容の後にファイルに変更を保存します

次のように最初に、我々は、JSONファイルを持っています：

{
     "野党" ：[
        {
            "市"：0 、
             "将軍"：74 、
             "デビューイヤー"：190
        }、      
        {
            "市"：0 、
             "将軍"：11 、
             "でデビュー"：208
        }、        
        {
            "市"：29 、
             "将軍"：78 、
             "デビューイヤー"：198
        }
    ]、
    "フォロー" ：[
        {
            "父"：182 、
             "子供"：176 、
             "デビューイヤー"：197
        }、
        {
            "父"：222 、
             "子供"：224 、
             "デビューイヤー"：199
        }
    ]
}

次のように第二に、私たちは、「反対」をお読みください。

//は、JSONファイルの内容を読み取る
手順TForm1.Button1Click（送信者：TObjectを）;
 VAR
  m_Json、m_Json_Item：TJSONObject。
  m_StringStream：TStringStream。
  m_JsonArr：TJSONArray。
  I：整数;
開始
  m_StringStream： = TStringStream。作成し（'' 、TEncoding.UTF8を）。
  m_StringStream.LoadFromFile（Edit1.Text）。
  m_Json： = TJSONObject。作成します。
  m_Json： = TJSONObject.ParseJSONValue（m_StringStream.DataString）としてTJSONObject。
  m_JsonArr： = m_Json.Values [ ' 在野' ] としてTJSONArray。
  // 第10个
  のために I = 0  に - m_JsonArr.Count 1  ない
  開始
    ：m_Json_Item = m_JsonArr.Items [I] としてTJSONObject。
    Memo1.Lines.Add（形式（' 将軍：％S、デビュー：％S '、[m_Json_Item.Values [ ' 将軍' ] .Valueの、m_Json_Item.Values [ ' ステージ' ] .Valueの]））;
   エンド;
 エンド;

// JSONファイルの内容を修正する
手順TForm1.Button2Click（送信者：TObjectを）を、
 VAR
  m_Json、m_Json_Item：TJSONObject。
  m_StringStream：TStringStream。
  m_JsonArr：TJSONArray。
開始
  m_StringStream： = TStringStream。作成し（'' 、TEncoding.UTF8を）。
  m_StringStream.LoadFromFile（Edit1.Text）。

  // JSON読ん 
  m_Jsonを：= TJSONObject。作成します。
  m_Json： = TJSONObject.ParseJSONValue（m_StringStream.DataString）としてTJSONObject。
  m_JsonArr： = m_Json.Values [ ' 在野' ] としてTJSONArray。

  // 配列JSONの内容を変更 
  m_Json_Item：= m_JsonArr.Itemsを[ 2 ] AS TJSONObject。
  m_Json_Item.RemovePair（' 武将' ）;
  m_Json_Item.AddPair（' 武将'、' 520 ' ）。
  m_Json_Item.RemovePair（' でデビュー' ）;
  m_Json_Item.AddPair（' でデビュー'、' 1314 ' ）;

  // ファイルに保存
  m_StringStream.Clear。
  m_StringStream.WriteString（m_Json.ToString）。
  m_StringStream.SaveToFile（Edit1.Text）。
エンド ;

次のように第三に、効果は次のとおりです。

 

 

 

あなたはこの記事は貴重だと思うならば、忘れてはいけない心の始まり、著者が支払うことに同意するものとし、マイクロチャネルの二次元コードは作者へのご褒美の任意の量であることができる（マイクロ・シグナル：382 477 247）ああ、ありがとうございました。